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SUMMARY 


A computer program, "GEMPAK,” has been developed to aid in the genera- 
tion of detailed configuration geometry. The program was written to allow the 
user as much flexibility as possible in his choices of configurations and the 
detail of description desired and at the same time keep input requirements and 
program turnaround and cost to a minimum. The program consists of routines 
that generate fuselage and planar-surface (winglike) geometry and a routine 
that will determine the true intersection of all components with the fuselage. 
This paper describes the methods by which the various geometries are generated 
and provides input description with sample input and output. Also included are 
descriptions of the primary program variables and functions performed by the 
various routines. The FORTRAN program GEMPAK has been used extensively on the 
Control Data Corporation 6000 series computers in conjunction with interfaces 
to several aerodynamic and plotting computer programs and has proven to be an 
effective aid in the preliminary design phase of aircraft configurations. 


INTRODUCTION 


The computer has become indispensable as a tool to the aeronautical 
researcher engaged in design, analysis, and experimental work. Programs of 
varying levels of sophistication have been written to expedite the study of 
every field of technology. As the researcher examines the available computer 
programs in his field of interest, he finds the detail and amount of input 
information that he must provide usually depends upon the depth of analysis he 
desires and the scope of application of the program. This is particularly true 
of geometry definition. Sketchy configuration definitions and approximate solu- 
tions are often sufficient for parametric studies. But, as the field of study 
narrows and more accurate results are desired, the problem of supplying a more 
detailed geometry input definition becomes very time consuming and the element 
of human error becomes a prime factor in program turnaround and cost. 

Generally, configuration analyses require the use of more than one computer 
program. This tends to compound the geometry input problem, for although much 
of the information required by each of the programs is the same , the amount and 
location of detail may vary. For example, a thermal analysis of a configuration 
would require a greater degree of detail, especially in areas of high heat 
stress, than would a force analysis of the same configuration in order to obtain 
results at the same level of reliability. In addition to having to redefine 
the configuration geometry according to the priority of each program, the user 
is called upon to repeat this process for any perturbation of his vehicle. In 
the preliminary design phase of a configuration, subtle changes in the configu- 
ration can require gross input modifications. 

The main objective of this paper was to develop a system that would 
(1) provide rapid turnaround from drawing board to detailed aircraft geometry 
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definition, (2) offer a wide choice of configuration types and degree of detail, 
and (3) allow geometry to be modified quickly and easily. 

Out of this concept has evolved the FORTRAN computer program "GEMPAK,” 
consisting of routines that generate geometry for fuselage, wings, canards, 
horizontal tails, fins, and elevons. The program executes at 65000s storage 
and a typical configuration of good detail requires a running time of 20^10 sec- 
onds on a Control Data 6000 Series Computer. GEMPAK has been used extensively 
in the preliminary design phase of the National Hypersonic Flight Research 
Facility (NHFRF) (hypersonic research airplane, formerly the X-24C), refer- 
ences 1 and 2, and has proved effective in greatly reducing the effort in 
geometry definition. 

In appendix A, a summary of the program routines and their functions is 
presented. The major program variable descriptions are given in appendix B. 
Appendix C presents inputs and outputs for sample cases. 


DESCRIPTION OF COMPUTER PROGRAM "GEMPAK" 

The computer program GEMPAK consists of three major parts: the fuselage 

generator, the generator for planar surfaces, and the module for integrating 
the configuration components with the fuselage. The program logic flow is 
illustrated in figure 1 . The geometry routines of GEMPAK generate the geome- 
tries specified by the user and store the resulting coordinates in their respec- 
tive component arrays. The configuration may be internally defined by the pro- 
gram with very little input information or the user may input a point-by-point 
description of a component of arbitrary geometry. Each component is input and 
generated independently; thus, the user is able to make isolated changes more 
readily. The program will scale the resulting geometries for compatibility and 
will merge the components into an integrated configuration. 

The fuselage can be defined analytically by three to eleven lofting curves. 
These curves may be continuous or discontinuous and the user need input only 
the minimum number of points that can be fitted with conic sections for a good 
reproduction of his configuration. The number of cross sections and points per 
cross section can easily be controlled or altered in this input mode. Cross- 
section and point-by-point input options are also provided which yield a lesser 
degree of subsequent control over the fuselage geometry. 

The wing, canard, horizontal tail, fin, and eleven are all generated by 
a single type of calculation. A one- or two-panel surface can be generated 
with basic input parameters such as aspect ratio, taper ratio, and sweep angles. 
A slab-sided airfoil or a circular-arc airfoil can be input with a minimum of 
input or an arbitrary airfoil may be input with a point-by-point description. 
Changes in dihedral, twist, coordinate translation, angle of attack, and roll 
angle are program options available to the user. 

The ease with which GEMPAK can be used and the wide range of configuration 
types to which it may be applied have proven it to be an effective tool in engi- 
neering design. Figure 2 illustrates some configure ti ons generated by GEMPAK. 
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The remainder of this text will concentrate on a more detailed description 
of the computer program, GEMPAK, its routines, capabilities, and use. 


FUSELAGE GEOMETRY GENERATION 
Formulation 

The information about the fuselage geometry of a given configuration may 
become available to the analysis in a variety of forms. Drawings or sketches 
showing planforms, profiles, or area distributions (with or without cross- 
section definitions) are the usual forms of initial data. In some cases tabu- 
lated data may be the most readily available form. The fuselage geometry scheme 
described here was developed to accommodate input data from each of these forms. 
Three basic modes to input controlling data were formulated for versatility and 
user ease. These input modes are denoted as 

(1) Complete lofting or analytic modeling 

(2) Cross-section lofting 

(3) Point by point 

The degree of user control of the basic numerical model depends on the input 
mode utilized. Input mode 1 (complete lofting) was developed to generate a 
completely analytic numerical model from a minimum of longitudinal and cross- 
sectional input data. The total number of points, cross-section locations, 
and point distribution are easily varied by very simple input modif ications . 
Input mode 2 (cross-section lofting) is structured around lofting data input 
for discrete prescribed cross-section locations. The numerical model is not 
analytic in the longitudinal direction and subsequent control of the numerical 
model is limited to the initial set of cross-section input. However, the num- 
ber of points per cross section and their distribution can still be controlled 
by simple inputs. Input mode 3 ( point-by-point ) requires all surface points 
to be input at discrete longitudinal locations. The resulting numerical model 
is completely nonanalytic. No interpolation routines are provided in either 
the longitudinal or cross-sectional directions so that the initial input must 
contain all the user-desired cross sections and their point distribution. The 
amount of input is usually the least for input mode 1 and the greatest for input 
mode 3. Symmetry about the XZ or longitudinal-vertical plane has been assumed 
so that only half of the fuselage is required as input in all three modes. The 
following section contains a discussion of the analytic methods employed to con- 
trol the numerical model of the fuselage geometry. 


Analytic Curve Definition 

All longitudinal and cross-sec tional curves used in input modes 1 and 2 
are formed by a chain of second-degree curve segments. The three-dimensional 
space curves describing the outer mold line of the fuselage are defined by their 
projections into the coordinate planes. All cross sections are taken perpen- 
dicular to the longitudinal axis. The reference or input coordinate axes is a 
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right-handed system made up of the longitudinal or X-axis defined as positive 
from nose to tail; the lateral or Y-axis defined as positive from the fuselage 
center line outbodrd, and the vertical or Z-axis defined as positive upward. 
The longitudinal curve segments in this coordinate system are represented by 
two general second-degree equations 


A-|x 2 + B-|xy + C-|y2 + Dix + E-|y + F-| = 0 


and 


A2X^ + B2XZ + C2Z^ + D2X + E2Z + F2 = 0 


( 1 ) 


( 2 ) 


The cross-sectional curve segments are represented by the single general second- 
degree equation 


A^y^ + Bgyz + C-^z^ + D^y + Egz + F3 = 0 


(3) 


It is assumed that the basic information available to determine the coefficients 
for each segment contains the end points and their slopes as illustrated for 
the XY projection plane in figure 3- These four pieces of information are not 
sufficient to determine the six coefficients (A, B, C, D, E, and F) of 
equations (1) to (3). In the reference coordinates, however, a rotation and 
translation of the coordinates can be employed to reduce the number of required 
coefficients. The usual angle of rotation employed to eliminate the B coeffi- 
cient is defined by 


cot 2<j> = 


A - C 


B 


( 4 ) 


where A, B, and C are the second-degree term coefficients and is the 
angle of rotation. A suitable translation can then be used to determine one 
of the other five coefficients if the type of conic section to be fitted is 
known a priori. This required foreknowledge of type of conic for each segment 
(both longitudinally and in cross section) did not seem consistent with the 
overall purpose of the geometry package which is to provide rapid and simple 
input capability. The requirement of prior knowledge of conic section could 
be relieved by supplying an additional piece of curve information such as an 
intermediate set of segment coordinates between the end points. Again, this 
additional input was not desirable. The approach here was to assume all curved 
segments to be sections of an ellipse. Within this limitation, the rotation 
angle was altered from that shown in equation (4) to a more convenient form 
which is determined in the following manner. Two straight lines are determined, 
each of which contains one of the end points and its respective slope. If the 
two slopes are not parallel, the intersection of these straight lines is deter- 
mined and denoted as the slope control point at each end point (fig. 4). The 



distances d -|3 and d 23 between this slope control point and each end point 
of the segment are calculated. The rotation angle is chosen so that the 
abscissa of the rotated coordinates x' and y' is parallel to the straight 
line containing the longest straight-line segment (fig. 5). A translation is 
then performed to place the origin coincident with the segment end point con- 
tained in the longest of the straight-line segments d -13 and d 23 . The new 
coordinate axes are denoted by X" and Y" in figure 5. If the slopes at the 
end points are nonorthogonal , the equation of the elliptical segment in trans- 
formed coordinates becomes 


(x")2 + C(y")2 + E(y") + F = 0 


(5) 


The coordinates at the end point and the slope of_the shortest side are used 
to solve for the three unknown coefficients C, E, and F. If the slopes at 
the end points are orthogonal, the origin of the ordinate axis (Y” in this 
case) is translated to become coincident with the ordinate of the end point 
nearest the slope control point. The equation for the elliptical segment in 
these coordinates and y’" ) becomes 

(x'" )2 + C(y"' )2 + F = 0 ( 6 ) 


The two unknown coefficients C and F are then determined from the segment 
end points. The forms of equations (5) and ( 6 ) are particularly useful in 
constructing cross-sectional segments since the ordinates are always single- 
valued and intermediate values along the segment can be easily determined. 

If the slopes of the segment end points are parallel and a straight line 
will contain both end points and end slopes, two possibilities occur which can- 
not be fitted in this manner (fig. 6 ). If the two slopes are parallel to each 
other and perpendicular to the straight line formed by the two- end points, the 
entire family of ellipses matches the input data. Therefore, the total meridio- 
nal angle subtended by the elliptical segments must always be less than 180 ^. 

If the two slopes are parallel to each other and are not perpendicular to the 
straight line connecting the end points, the single curve which matches both 
the slope and end-point conditions contains an inflection and cannot be fitted 
with a second-degree curve segment. If either of the two conditions listed is 
encountered in the formulation described here, an error message is printed and 
the calculation is continued by creating a straight-line segment between the 
end points. This default option, which is the correct solution in figure 6 (c), 
was incorporated so that the remaining geometry could be viewed for errors as 
early as possible. 


Auxiliary Fuselage Geometry 

Since the basic purpose for developing this geometry package was for use 
as an aerodynamic design tool, several geometric calculations most often 
required in the design process have been incorporated directly into the basic 
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numerical model definition for convenience. The basic formulation creates an 
equal number of points per cross section. This characteristic results in a 
quadrilateral for the primary surface elements. Therefore, the method described 
by Arvel E. Gentry in reference 3 for treating irregular surface quadrilaterals 
has been incorporated into this formulation to orovide surface normals, areas, 
centroids of elements, and fuselage volumes. Additional capability has been 
added here to include cross-sectional areas, coordinates of the maximum span 
(planform) point at each cross section, and effective fineness ratio of the 
fuselage. The longitudinal and vertical centers of volume are also calculated 
for use in the initial estimates of fuselage center of gravity. 

An additional highly specialized capability related to fuselage-mounted 
propulsion systems has also been incorporated into the fuselage geometry pack- 
age. The scram jet propulsion systems proposed for hypersonic air-breathing air- 
craft are highly integrated with the aerodynamic surfaces to enhance propulsion 
system performance (ref. 4), The bookkeeping between aero and propulsion forces 
tends to become a difficult chore for subsequent calculation under these condi- 
tions. To facilitate the bookkeeping process, those portions of the fuselage 
subtended by the engine and/or exhaust plume are identified and supplied as a 
separate aerodynamic surface. The method used to generate this surface requires 
defining the planform of the propulsion system and/or its exhaust plume by the 
same longitudinal lofting techniques employed for the basic fuselage. This 
planform (represented by the shaded area in fig. 7) is projected onto the 
already formed fuselage to extract the three-dimensional surface that is common 
to both the aerodynamic vehicle and the propulsion system. The running lengths 
along the fuselage surface ahead of this new geometry are also calculated to 
make appropriate skin-friction corrections. 


PLANAR-SURFACE GEOMETRY GENERATION (WINGS, TAILS, ETC.) 

The planar-surface generation routine will compute, from simple input, 
winglike surfaces of varying degrees of complexity. The wing planform is devel- 
oped first and then airfoil sections selected. This basic wing may then have 
flap surfaces delineated and deflected and/or twisted, translated, and rotated 
to any desired position. The end product of the program is a set of geometric 
points describing the wing surface in detail. This set of coardinates is loaded 
into one of four user-selected arrays identified as either a wing, canard, hori- 
zontal tail, or fin. 

The planar-surface package is organized in a modularized step-by-step fash- 
ion as illustrated in figure 8. User input also follows the same logic flow. 

By keeping in mind this logical order, it should be relatively easy to visualize 
how input at one stage of the program will be modified by input at a later stage. 
In general, only a small portion of the input is required for any single case, 
and extensive default options allow the user to skip nonapplicable areas. Input 
values are checked at the beginning of the program to eliminate any obvious 
inconsistencies. In the case of an input conflict, the program will select a 
value, print a warning message, and attempt to continue. 

Two basic methods of inputting a wing surface can be used. First, an auto- 
matic procedure in which a one- or two-panel wing can be constructed with such 


6 


basic parameters as aspect ratio, taper ratio, and sweep angles (fig. 8). Three 
airfoil options are available for this automatic procedure. A second input 
method requires a detailed hand input of every chord surface. Such an input 
would be needed if airfoil sections were not similar between chords or if lead- 
ing or trailing edges are curved in planform. Once the basic wing has been 
input by either of these methods, it can be manipulated by subsequent wing 
options (fig. 8). 

The remainder of this section will be devoted to a detailed discussion of 
the various input and manipulative options available to the user. 


Automatic Planar-Surface Option 

This option is designed for the user who wishes to characterize a wing 
type with basic parameters such as aspect ratio, taper ratio, and sweep angles. 
The coordinate system and surface plan parameters are shown in figure 9. With 
reference to this figure the plan area can be specified by inputting wing area 
and aspect ratio. The root- and tip-chord lengths are calculated by the pro- 
gram. Alternately, the root chord and taper ratio can be specified. 

Slab-sided airfoil .- Many supersonic and hypersonic aircraft wing sections 
feature wedge, diamond, and trapezoidal shaped airfoils of types shown in fig- 
ure 10. These sections can be input easily with this option and automatically 
adjusted for variable spanwise camber and thickness distribution. In order not 
to lose geometric definition, the program will locate a spanline at each airfoil 
breakpoint. 

Leading-edge radii may be easily incorporated into the slab-sided airfoil 
by means of a leading-edge option. Leading-edge radius (R) may be specified 
as a constant or it may be specified proportional to chord length. With refer- 
ence to figures 10 and 11, the leading-edge surface is described by the follow- 
ing equations: 


X B R(1 - cos 6) 


Z = R(sin 6) 


<S = n(<5@) (n = 1 to N) 


OM 

Og = — (N is equal to the largest integer 

N for 6g S 22.5°) 


OM is the angle to the leading-edge tangent point on chord 
= the larger of OML and OMU 


7 



(Upper surface) 


(MJ = 90. + B + a 
OML = 90. - 3 - a 


a = sin“^ 


3 = tan“^ 


R cos 3 



J = 1 
J = -1 


(Lower surface) 


(Upper surface) 
(Lower surface) 


TCD, XWD1, and TWRD are defined in figure 10. Points are calculated around 
the leading edge at increments no greater than 22.5°. If a leading-edge diam- 
eter is calculated to be larger than a maximum chord thickness, the program will 
automatically increase local wing thickness ratios to match leading-edge diam- 
eter. (See fig. 11.) 

Circular-arc airfoil .- Airfoil families consisting of circular arcs are 
also typical of supersonic and hypersonic designs (fig. 12). As with the slab- 
sided airfoil, this option allows the user to specify spanwise camber and thick- 
ness ratio distributions. With reference to figure 12, the airfoil surface 
equations are as follows for a cambered airfoil: 


Z = (J)(XC) 


{ 


a 2 . 0.25 -(-f + - 

\xc/ xc 


1/2 


- ( a 2 - 0.25)1/2 


+ (XC)^ 


b 2 - 0.25 - ( — j + — - (b2 - 0.25)1/2 

\ XC/ XC . 


J = 


(Upper surface) 


J = -1 


(Lower surface) 
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/TWRD2 + 1 

A = 0.25 

V TWRD 


/tCD2 + 0.25 

B = 0.5 

\ TCD 


X coordinate, origin at leading* edge 


XC, TWRD, and TCD are defined in figure 12. 

Leading-edge radii are incorporated into the circular-arc airfoil in a 
manner different from that used on the slab-sided airfoils. With reference to 
figure 13, the leading-edge radius is first fitted to an uncambered circular- 
arc airfoil of the proper thickness. A constant radius arc with a maximum dis- 
placement at the maximum thickness point is then constructed as a mean camber 
line. The coordinates of the symmetrical airfoil are then displaced by an 
amount equal to this mean camber line. The resulting cambered airfoil approxi- 
mates leading-edge geometries proposed for hypersonic applications. The 
leading-edge geometry generation method for a symmetrical airfoil is as 
follows: 


X = R(1 - cos 6) 
Z = R(sin 6) 

6 = n^i6^ 


(n = 1 to N) 


OM 

6e = — 

® N 


(For N equal to the largest integer 
for which 6^ ^ 22.5^) 


OM = 90° - tan-'' 


BC 


RC - 


BC = 


R 

XC 


TWRD\/R 

\XC * ~2 


TWRD 
2 

TWRD 


- 2RC 


1/2 
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(FC)(.^) - (EC)2(DC) - GC 


RC 


GC 



|^(EC)2(DC) - (FC) 



2 




^ |(FC)2 _ lf(EC)2(CC^J 


1/2 



DC 


R TWRD\ 
XC 2 / 


R 

EC = 1 

XC 


t 


FC = 


<-f - <-) * 

\xc/ \xc/ 


1 


R = Leading-edge radius 


Arbitrary airfoil .- By specifying the upper and lower surface coordinates 
of any airfoil as shown in figure 14, the program will scale these coordinates 
to fit all wing chords. Although upper and lower surface Z values need not 
be input in pairs at specific X stations, the program will interpolate to find 
paired upper and lower surface Z values at specific X stations. These X sta- 
tions will be averaged from input values or will be spaced equally along the 
chord depending on user preference. 

The user may find this a convenient program input location in which to read 
in airfoil coordinates generated by an airfoil geometry generation program such 
as those of references 5 and 6. 


Manual Planar-Surface Generation 

For those cases where the automatic input options are unsatisfactory, an 
option is provided by which every chord surface may be specified. Figure 15 
illustrates the input method. Note that both upper and lower surface points 
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must be paired to lie on the same chord stations for a given airfoil. Chord- 
wise points can remain within the program as they were input, or they may be 
equally respaced chordwise, depending on user input. 


Automatic Manipulations of Generated Planar-Surface Geometry 

Leading-edge geometry enrichment .- Some aerodynamic programs may require 
greater geometry definition at chord leading edges than is normally given by 
typical panel points. Accordingly, a very detailed set of geometry points are 
calculated and stored for a typical chord, which is chosen as that chord which 
lies nearest the middle of a surface semispan. Thirty geometry points between 
the 0- and 0.1 -chord locations for both the upper and lower surfaces are stored 
The X coordinate values (in percentage of chord lengths) are determined through 
the following geometric progression: 


kNO-1 


/XX2\ /XX2 

(K) + 

Vxxi/ \xxi 


') 


= 0 


with 


NO = 30 


XX1 □ 0.001 
XX2 = 0.1 


and K is the geometric progression constant. A solution for K is obtained 
and the following equation solved for leading-edge Ith + 1 X values: 

X(I + 1) + (XXI) + X(I) 

Leading-edge values of Z are linearly interpolated from calculated or input 
chord points. 

Control surface deflections .- A flap option is provided that allows the 
user to create a full-span flap surface on any wing planform and to deflect this 
flap to a given angle. The option is also available which allows the user to 
store the newly created flap in a separate array. This array is then available 
to other application programs to calculate trimmed aerodynamic calculations. 

The flap surface is defined by specifying a linear hinge line (fig. 16(a)) 
across the full wing span with the wing in its original input position. Subse- 
quent translations and rotations will affect the wing and flap equally. The 
hinge line is assumed to be centered within the wing root and tip chord airfoils 
(fig. 16(b)). Span lines over the wing surface are automatically redistributed 
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to coincide with the input hinge-line location and flap geometry. This redis- 
tribution of span lines can, however, destroy the close spacing of points needed 
for leading-edge detail; therefore, an additional user input is provided whereby 
a specified number of leading-edge points will be left undisturbed during the 
spanwise point redistribution process. In the case of the slab-sided airfoil 
or circular-arc airfoil, the leading-edge points are automatically left 
undisturbed . 

Flap deflection angles are specified as the incremental angle through which 
the flap surface must move in a plane normal to the hinge line. This deflection 
is measured relative to a line connecting the hinge line with the flap trailing 
edge (fig. 16(b)). The rotation is accomplished by rotating the hinge line 
parallel to the Y-axis by means of a roll and yaw rotation and then deflecting 
the flap through an angle of attack. The flap is then rotated back to its 
original hinge-line position through a yaw and roll transformation. As shown 
in figure 16, upper and lower flap surfaces may be deflected independently to 
simulate a speed brake. 

Situations often develop where an all-movable control surface is required. 
An option is provided therefore to designate a surface as an all-movable sur- 
face and to designate the hinge line about which the surface pivots. The input 
is similar to that required for the flap option with the addition of Z values 
required for the hinge-line location. An input deflection angle will cause the 
surface to rotate in a plane perpendicular to the hinge line. Unlike the flap 
array, respacing of span lines is not required. 

Dihedral .- Dihedral can be added to any automatically generated or hand 
input wing surface. For the purposes of this paper, dihedral is defined as a 
vertical translation of wing points to a specified dihedral angle or curvature. 
This nomenclature is defined in figure 17(c) and can be contrasted to the con- 
cept of wing roll, in which all wing points are rotated about a common X-axis 
(fig. 17(c)). Roll will be discussed in a subsequent section. Note that the 
dihedral option will leave all chords in their original input plane. Dihedral 
angles can be specified at root and tip leading edges (fig. 17(b)). A second- 
order curve is fitted between the root and tip chord as follows: 


Z 


tan (AWT) - tan (AWR) 
BW 


+ |\an 


(AWR)] Y 


If AWT and AWR (see fig. 17) are input identically, the leading-edge curve is 
linear. Alternately, leading-edge dihedral may be input point by point as 
illustrated in figure 17(a). 

Twist .- Wing twist is computed as a rotation of the wing chords about 
their leading edges in the XZ plane (fig. 18). Twist is specified in this 
program as a tip deflection angle. Positive twist results in a wing-tip trail- 
ing edge deflected downward. Twist angle is linearly decreased to zero at the 
wing root . 
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Translation and rotation .- All wing surfaces may be translated as complete 
units to any desired location as illustrated in figure 19(a). The program user 
must bear in mind that translation occurs before rotation and that subsequent 
rotation will alter the translational position. 


Rotation is the last operation performed on wing geometry. Figures 19(b), 
19(c), and 19(d) illustrate how three rotation angles and axes must be speci- 
fied. The order in which rotation occurs will uniquely define the final coordi- 
nate values. In this program rotation occurs in the order (1) roll, (2) pitch, 
and (3) yaw. This order is specified in the "calls” to the rotation subroutine, 
and may be easily changed by modifying the argument list of these calls. Rota- 
tion is computed by the following equations: 

Roll: 

XR=X 

YR=(Y-YROTAT) cos(THETA)-(Z-ZROTAT) sin(THETA)+YROTAT 
ZR=(Z-ZROTAT) cos ( THETA)- (Y-YROTAT) sin(THETA)+ZROTAT 


Pitch: 

XR=(X-XROTAT) cos ( ALPHA)+( Z-ZROTAT) sin ( ALPHA )+XROTAT 
YR=Y 

ZR=(Z-ZROTAT) cos ( ALPHA) -(X-XROTAT) sin ( ALPHA )+ZROTAT 


Yaw: 

XR= (X-XROTAT) cos(BETA)-(Y-YROTAT) sin ( BETA )+XROTAT 
YR=(Y-YROTAT) cos(BETA)-(X-XROTAT) sin(BETA)+YROTAT 
ZR=Z 


where XR, YR, and ZR represent the rotated values. 


COMPONENT INTEGRATION 

After all geometry chosen by the user has been generated, control passes 
to the overlay MERGE. The primary function of MERGE is to exercise the user 
option for program calculation of the intersection of any surface (wing, tail, 
etc.) with the fuselage. (See input description of IMERGE in Namelist WING.) 

To insure compatibility of all planar-surface and fuselage geometry arrays with 
each other and with any program analytical operations on the geometry, MERGE 
scales all the geometries to a common reference length. In addition, an array 
arrangement of planar-surface geometry data is prescribed and expected. Fig- 
ure 20 illustrates this array arrangement. Chord locations are numbered from 
inboard to outboard (root to tip) and surface stations along each chord are 
numbered from fore to aft (leading to trailing edge). The upper and lower sur- 
face arrays will always be positioned as shown. Because there are relatively 
few restrictions on the user as to what manipulations he may perform on a set 
of planar-surface geometry, the final form of the generated arrays may no 
longer be arranged in the prescribed fashion. For example, in generating a 
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planar surface, the user may have requested that the surface be rolled 180®, 
and may thus reverse not only the upper and lower geometries, but the numbering 
of the chord locations as well. In order to prevent any such inconsistencies 
in data arrangement, MERGE inspects all planar-surface geometry arrays and 
reverses and/or renumbers geometry locations as necessary. The program then 
continues to merge these surfaces with the fuselage, as required. Figure 21 
shows in diagram form the operations performed by MERGE. 

Components are merged with the fuselage by finding the intersection of 
each surface ray of the component with a fuselage panel, a surface ray being 
a surface span line and panels being the smallest four-sided elements in the 
fuselage geometry description. The locus of points containing all the ray 
intersections for both the upper and lower surfaces is added to the definition 
of the component and the array location is defined so that all geometry inboard 
should be deleted. 

The following paragraphs describe in more detail the methods used in MERGE 
to find the intersection of a surface ray with the fuselage. 


Limits of Search for Intersection 

In finding the intersection of a surface ray with the fuselage, MERGE first 
sets the search limits of intersection in order to avoid unnecessary iterations. 
The most outboard limit of the surface ray is that segment shown in figure 22 
that intersects the fuselage planform and the search along the ray continues 
inboard for each segment. The range of fuselage cross sections that are spanned 
by this segment limits the fuselage geometry that will be searched for intersec- 
tion and only those panels on the fuselage segment that are spanned by the ray 
segment in the YZ plane are tested. If after exhausting this set of search 
limits without finding an intersection, a new set of limits corresponding to 
the next inboard ray segment are obtained and the iteration procedure is 
repeated. 


Intersection Estimation 

The order of search through the fuselage segment is dependent upon the 
slope of the ray segment. For a positive slope in the XY plane, the fuselage 
segment is searched from forward to aft. For a negative slope this order is 
reversed. Fuselage panels are always searched from the uppermost panel to the 
lower. Panels are discarded until one is found such that at least two of its 
sides are intersected by the surface ray segment vector in the YZ plane at 
P '1 and ? 2 - Figure 22 indicates with a sample fuselage segment the panels 
where this would occur and numbers them in the order in which they would be 
found. The values of X corresponding to the Y and Z values of the two inter- 
section points P-] and ?2 are Xr i and Xr 2> respectively, on the ray 
segment and Xp i and Xp^2> respectively, on £he fuselage panel. There are 
now two sets of X values for each of the intersections P-| and ?2 (fig. 23). 
By assuming that the relationship between the two sets of X values is linear, 
the point at which the fuselage and the ray segment vector would share a common 
X value, Xj^, can be determined. The Y and Z coordinates corresponding to X^ 
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on the ray segment vector are found. Thus, the point (X^jYj^jZj^) is an esti- 
mated point of intersection. It is necessary to determine whether this point 
still lies within the fuselage panel maximum and minimum limits as well as on 
the surface ray segment. After this information has been verified, the program 
checks for irregularly shaped panels, such as those shown in figure 24, which 
violate the previous tests and would have allowed an erroneous intersection 
point. 


Intersection Verification 

To account for the possibility of irregularly shaped panels as viewed in 
the YZ plane, the fuselage panel with which a ray segment has been found to 
intersect is assigned more specific boundary limits. The fuselage panel is 
divided into two triangles according to the location of the intersection of the 
fuselage panel diagonals. Figure 25 shows the four possible locations of the 
diagonal intersections and the corresponding panel divider that will divide the 
panel into two triangles. After the two sets of triangle limits for the candi- 
date intersection point (Y^yZ^) have been assigned, the "triangle check” is 
applied to determine whether this point lies within one of these two triangles. 
From each vertex of a triangle, a line is drawn to include the intersection 
point and a point of the opposite side (fig. 26). If for one of the two panel 
triangles the point (Yj^,Zj^) lies between each vertex and the point on its 
opposite side, it is assumed to lie on the fuselage panel. 

Finally, the normals of the fuselage panel that contains the ray intersec- 
tion point and of the surface ray segment are computed to determine the angle 
of direction of intersection. This final test is applied in order to insure 
that the entry point of the surface ray with the fuselage has been found rather 
than the exit point. 

If a candidate intersection point is not verified within the fuselage 
limits of a search, a new set of fuselage limits is assigned corresponding to 
the next inboard ray segment and the entire iteration procedure is repeated. 


Surface Ray of No Intersection 

If, after exhausting the limits of the surface ray, no intersection is 
found, MERGE estimates an intersection for this ray by extrapolating the inter- 
section of the previous ray. If the leading-edge ray is found to have no inter- 
section with the fuselage, a diagnostic message is issued and further attempt 
at merging the component with the fuselage is abandoned. Figure 27 illustrates 
the cutoff of surface rays that do not touch the fuselage. 


Intersection Geometry Definition 

After the intersection points of all the surface rays for both the upper 
and lower surfaces of a component have been found, these points are added to 
the geometry definition of the component and the array or chord location of the 
intersection is identified by array NST. Figure 28 indicates how the geometry 
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arrays are renumbered to include this additional chord location. Note that the 
intersection location is given its most outboard chord position of 4 in order 
to maintain monotonicity of array positions. This is done for both the upper 
and lower surfaces and the larger value of NST defines the array position. 

Chord locations NST through the tip chord location define the component outboard 
of the fuselage. After all components have been merged with the fuselage, the 
resulting geometry arrays are written onto TAPE38 in FORTRAN Namelist form. 


GEMPAK INPUT DESCRIPTION 

The geometry generation options specified by the user are the main control 
parameters of GEMPAK. These options dictate the flow of execution, the informa- 
tion that must be specified by the user, and the order in which this input must 
be arranged. Figure 29 illustrates the input flow of GEMPAK and the option 
flags that control the flow path in figure 1 . Samples of GEMPAK input and out- 
put are found in appendix C. A description of these inputs and a discussion 
of how they are applied follow. 


GEMPAK TITLE CARD 

Variable name Column( s) Format Variable description 

TITLE 1 to 80 8OAI Job identification using any acceptable 

alphanumeric characters 


GEMPAK GEOMETRY OPTION CARD 

Format Variable description 


1013 Geometry generation options. Any or all 
the following options may be chosen; 
however, no option may be chosen more 
then once in a run. 

1 : Fuselage 

2: Wing 

3: Canard 

4: Horizontal tail 

5: Fin 

6-10: Not used at present 

The component geometries are generated 
in the same order in which the options 
are chosen. 


Variable name ColumnC s) 

ICOMP 1 to 30 
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INPUT FOR FUSELAGE GEOMETRY GENERATION 


The fuselage input requirements have been divided into eight basic sets 
of information as illustrated in figure 29. The several possible paths of data 
flow illustrated are all user options. The centermost vertical path represents 
the default options in lieu of any user preferences. The minimum number of card 
sets required to run any problem is two (card sets 1 and 7) and the maximum num- 
ber of card sets required is five (card sets 1, 2, 3, 8, and 4, or 5 , or 6). 
However, these maximums and minimums on card sets do not reflect any correspond- 
ing maximum and minimum on the magnitude of input data. The contents and influ- 
ence of each of these card sets are included in the following discussions. 


Card Set 1: Title, Geometry Limits, Program Option Flags 

This card set is always required. Three types of card input are utilized 
as shown in figure 30 . 

One of card type 1A is required. The purpose of this card is to provide 
the user with an 80-column free field input to identify the computer run or 
problem. The data on this card are simply read in and subsequently printed out 
as the first item in the fuselage output data. 

The information on card type 1B controls the length of the fuselage (BDYL) , 
the limits of input lofting data for input modes 1 and 2 (LOFMX) , the number 
of fuselage cross sections (NXS) , the number of points per cross section 
(NSS), the choice of fuselage input mode and subsequent calculations desired 
(INC(I),I = 1,5), the printed output desired (NP(I),I = 1,5), and a preliminary 
data input check (IDACHK) . 

The influence of most of these parameters depends on the choice of the 
surface data input mode. BDYL is independent of input mode and is simply the 
length of the fuselage from nose to tail. The units, however, must be consis- 
tent with fuselage coordinate inputs. 

LOFMX controls the number of lofting and slope control lines to be used 
in the complete lofting input mode or the number of cross-section segment end 
points and slope control points to be supplied in the cross-section lofting 
input mode. LOFMX lofting lines or segment end points at each cross section 
will be provided for the two longitudinal projection planes (XY and XZ) . 

LOFMX - 1 slope control lines or slope control points at each cross section 
will be provided in the two longitudinal projection planes. The maximum num- 
ber of lofting lines or segment end points at each cross section that can be 
defined is 11 . A minimum number of two are required to run any case. LOFMX 
has no effect on the point-by-point input mode and may be omitted when that 
option is chosen. 

NXS defines the number of cross sections that will be utilized in this 
case. The longitudinal locations of these NXS cross sections must be provided 
on card type 1C. 
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NSS defines the number of points per cross section that will be utilized. 
NSS cross-section points will be generated when either the complete lofting or 
cross-section lofting input modes are employed. When the point-by-point input 
mode is utilized, card set 7 must contain NSS points for each of the NXS cross- 
section locations. 

The choice of input mode is controlled by INC(1). If INC(1) = 0, the 
complete lofting input mode will be utilized and card set 4 must be provided. 

If INC(1) = 1, the data are provided in a streamwise or longitudinal manner 
and card set 5 is required. If INC(1) = 3, the data are provided cross sec- 
tion by cross section and card set 6 is required. If INC(1) = 2, the point- 
by-point input mode is employed and card set 7 is required. 

INC(2) controls the distribution for the NSS points on each cross 
section for the complete lofting (INC(1) b 0) and the cross-section lofting 
(INC(1) = 1 or 3) input modes. If INC(2) = 0, the curve length of the cross 
section is calculated and the NSS points are evenly distributed over this 
length. If INC(2) = 1 , an uneven distribution of cross-section points based 
on the LOFMX - 1 cross-section segments is employed. The exact distribution 
of points on each segment is controlled by card set 3 which must be supplied 
when INC(2) = 1. 

INC(3) controls all major auxiliary calculations defined in "Auxiliary 
Fuselage Geometry" with the exception of the aero/propulsion geometry surface. 

If INC(3) = 0, only the lateral and vertical coordinates of the maximum span- 
wise (planform) cross-section points are determined. If INC(3) = 1, all areas 
(surface and cross-section), surface normals, volumes, centroids (surface ele- 
ment and volumetric), and effective fuselage fineness ratio are calculated. 

INC(4) controls the calculation of the aerodynamic surface subtended 
by the propulsion system as previously described in "Auxiliary Fuselage Geom- 
etry." If INC(4) = 0, the aero/propulsion surface will not be generated. If 
INC(4) = 1, the aero/propulsion surface will be generated and card set 8 which 
controls this surface must be provided. 

INC(5) defines the type of control that is used to govern the initial and 
final slopes of each cross-section segment generated when either the complete 
lofting (INC(1) = 0) or the cross-section lofting (INC(1) = 1 or 3) input modes 
are chosen. If INC(5) = 0, the slope control is governed by lofted slope con- 
trol lines supplied in card set 4 for the complete lofting (INC(l) = 0) input 
mode or by slope control points supplied in card sets 5 and 6 for the cross- 
section lofting (INC(1) = 1 or 3) input mode. If INC(5) = 1, the slope control 
of prescribed cross-section segments is controlled through card set 2 which must 
be supplied. 

Five print options, controlled by NP(I),I = 1,5, are available to the 
user. NP(1) controls the output of the cross-section coordinates of the final 
numerical model. If NP(1) = 0, this print option is bypassed If NP(1) = 1, 
all y and Z coordinates on each cross section are printed. The cross-section 
points are presented in a clockwise fashion beginning at the upper center line 
of the fuselage. The planform point (lateral and vertical coordinates of the 
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maximum spanwise point) is presented separately for each cross section along 
with the longitudinal location of the cross section. 

NP(2) controls the output of the longitudinal distributions of surface 
area, cross-section areas, fineness ratio, the volumes and their centers con- 
tained between successive cross sections, and complete fuselage volume and its 
center. If NP(2) = 0, this print option is bypassed and exercised when 
NP(2) = 1. 

NP(3) controls the output of individual surface quadrilateral data for the 
final numerical model. If NP(3) = 0, this output option is bypassed. If 
NP(3) = 1, the direction cosines of the surface normals, the coordinates of the 
centroids of the surface element, element surface areas, and the delta volume 
associated with each element are printed. The delta volumes are those con- 
tained within the parallelpiped formed when ‘the surface elements are projected 
onto the YZ plane. The delta volumes have an associated sign for volume sum- 
mations, where the sign of each delta volume is the same as that of the lateral 
direction cosine Ny calculated for its element of surface area. Therefore, 
those surface elements facing away from the YZ plane have a positive sign and 
those elements facing toward the YZ plane have a negative sign. All surface 
element data are presented in a clockwise fashion beginning at the top center 
line of the fuselage for each segment of volume contained between successive 
cross sections. 

NP(4) controls the output for the coefficients of equations (1) and (2) 
in reference coordinates. These coefficients define the longitudinal segments 
of the lofting lines and slope control lines used in the complete lofting input 
mode. A sign SG is also printed which is valid only when the longitudinal 
coordinate is taken as the independent variable, that is, when 


-B-|X - El + SG^(BtX + Ei)2 - 4Ci(AiX2 + D^X + 

Y _ ~ 2C-I 

or 

-B2X - E2 + SG^|(B2X + £2)^ - 4C2fA2X^ + ^2X + P 2 ) 

Z . - - 

If NP(4) = 0, this output option is bypassed. If NP(4) = 1, the . longitudinal 
values (x coordinates) of the end points of the segment, the type of curve 
(lofting or slope control), the coordinate plane of projection, the six coef- 
ficients (A, B, C, D, E, and F), and an associated sign (SG = ±1) are 
presented. 

NP(5) controls the output of the coefficients of equation (3) which is 
used to define the cross-section segments in the complete lofting (INC(1) = 0) 
and cross-section lofting (INC(1) = 1 or 3) input modes. If NP(5) = 0, this 
print option is bypassed. If NP(5) = 1, the longitudinal location of the 
cross section, the cross-section segment number (counted clockwise from the 
upper fuselage center line), and the six coefficients (A, B, C, D, E, 


( 7 ) 


( 8 ) 
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and F) for reference coordinates are presented. Because of the formulation of 
the program, these cross-section segments can be double-valued in both variables 
for the reference coordinates. Therefore, an associated sign is not presented 
in this print option. 

IDACHK controls the checking of the fuselage input data for consistency 
and order. If IDACHK = 0, the input data are assumed correct. If IDACHK = 1, 
special data check options are initiated during the normal operation of the cal- 
culation requested. If no errors occur, the appropriate calculations are per- 
formed. If errors which can be detected do occur, an appropriate error message 
is printed which usually indicates the probable source of error. Once this 
data check has been successfully exercised, IDACHK should be set equal to zero. 

Card type 1C controls the longitudinal locations of the cross sections 
and provides for the input of eight" cross-section locations per card until NXS 
locations have been prescribed. These locations must be provided in order of 
increasing X. If the complete lofting input mode is chosen, then each lofting 
and slope control line projection must be completely defined over the region 
set by the initial and final cross-section locations. If the cross-section 
lofting input mode is chosen, then LOFMX segment end points and LOFMX - 1 
slope control points must be provided at each cross-section location through 
card sets 5 or 6. If the point-by-point input mode is selected, then NSS 
points at each cross-section location must be provided through card set 7. 

Card Variable name Column(s) Format Variable description 


lA 

TTL 

1 

to 

80 

8A10 

Fuselage identification using any 
acceptable alphanumeric characters 

IB 

BDYL 

1 

to 

15 

E15.8 

Body length 


LOFMX 

16 

to 

20 

15 

(Right- 

adjusted) 

Maximum number of lofting lines 
(2 ^ LOFMX ^11) 


NXS 

21 

to 

25 

15 

(Right- 
adjusted ) 

Number of cross sections 
(2 ^ NXS ^ 20) 


NSS 

26 

to 

30 

15 

(Right 

adjusted) 

Number of points per cross section 
(2 ^ NSS ^ 50) 


INCd ) 


32 


11 

Input flag. 


0: Complete lofting input mode. 

Input card set 4. 

1: Longitudinal input mode. 

Input card set 5. 

2: Point-by-point input mode. 

Input card set 7. 

3: Cross-section input mode. 

Input card set 6. 
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Variable name 

Column(s) 

Format 

Variable description 

INC(2) 

34 

11 

Point distribution flag. Not 
available for INC(1) = 2. 

0: Calculate NSS evenly distrib- 

uted points on each cross 
section. 

1: Use NBTWN(I) distribution to 

control cross-section point 
spacing. Input card set 3« 

INC(3) 

36 

11 

Calculate geometry characteristics 
such as areas, normals, volumes, 
centroids, fineness ratio, etc. 
0: No 

1: Yes 

INC(4) 

38 

11 

Generate the aero/propulsion 
surface. 

0: No 

1: Yes (input card set 8) 

INC(5) 

40 

11 

Initial and final slope control of 
the cross-section segment. Not 
available for INC(1 ) = 2. 

0: Slope control will be gov- 

erned by the input lofted 
slope control lines. 

1 : Slope control will be gov- 

erned through card set 2. 

NP(1) 

42 

11 

Print cross-section points. 
0: No ' 

1 : Yes 

NP(2) 

44 

11 

Print segment characteristics 
(surface areas, cross-section 
areas, volumes, centers of volume, 
fineness ratio, etc.). 

0: No 

1 : Yes 

NP(3) 

46 

11 

Print element characteristics 

(normals, centroids, delta areas, 
delta volumes). 

0: No 

1: Yes 

NP(4) 

48 

11 

Print longitudinal curve segment 


end points and coefficients. 
0: No 

1: Yes 
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Card Variable name Column(s) Format 


Variable descr iption 


IB NP(5) 


IDACHK 


1C X(I) 


50 11 Print cross-sectional curve segment 

end points and coefficients. 

0: No 

1 : Yes 


52 II Check fuselage input data for 

consistency and order. 

0: No 

1: Yes 

1 to 80 8F10.4 Prescribed cross-section locations 

in the longitudinal direction. 
Repeat card 1C for I = 1,NXS. 


Card Set 2: Slope Control Flags 

This card set contains information to control any or all the initial and 
final slopes of each cross-section segment whenever the complete lofting or 
cross-section lofting input modes are employed. This input supersedes any 
other cross-sectional slope controls and is provided primarily for ease of 
input in prescribing first derivative continuity along cross sections or to 
force straight-line curve fits on specific cross-section segments. Integer 
pairs are input to control the initial and final slopes of each cross-section 
segment for those cross sections defined on card type 1C. Since up to 10 seg- 
ments can be utilized to define a cross section, card type 2A is divided into 
four sets of integer pairs covering 20 card columns each and representing four 
different cross sections as illustrated in figure 31. Thus, the first two 
integers, IYZIN(1,1) and IYZ0T(1,1), override all other slope control inputs 
for the initial and final slope of the first segment on the first cross sec- 
tion. The segments on each cross section are numbered in a clockwise manner 
beginning at the top center line of the fuselage. IYZIN(I,J) and IYZ0T(I,J) 
control the initial and final slopes, respectively, of the Ith segment on the 
Jth cross section. 

IYZIN(I,J) and IYZ0T(I,J) can be given values of 0, 1, or 2. If a zero 
is input or the column is left blank, the cross-section slope control at the 
appropriate initial or final point of the segment is governed by the slope con- 
trol line for the complete lofting input mode or by the slope control point for 
the cross-section lofting input mode. If IYZIN(I,J) = 1, then the initial 
slope of the Ith segment on the Jth cross section is set equal to the final 
slope of the previous, (1-1 )th, segment of the same cross section. If 
IYZ0T(I,J) = 1, then the final slope of the Ith segment on the Jth cross sec- 
tion is set equal to the initial slope of the next, (1+1 )th, segment on the 
Jth cross section. If either IYZIN(I,J) = 2 or IYZ0T(I,J) = 2, then the 
Ith segment on the Jth cross section is fitted with a straight line. 
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Card Variable name Column(s) Format Varia ble description 

Omit this card set for INC(5) = 0. 

2 A [lYZIN(I,J) 1 to 80 40(11,11) Slope control option for the Jth 

lYZOTd.J)] segment on the Ith cross section. 

Repeat for I = 1,10 and 
J = 1,NXS. 


Card Set 3: Cross-Section Point Distribution 

This input controls any uneven cross-section point distribution require- 
ments by prescribing the number of points per cross-section segment. The same 
distribution is held constant for each cross section so that this input option 
should be considered in the initial layout of lofting lines and/or cross- 
sectional lofting points. LOFMX - 1 nonzero values are input (fig. 32) to fix 
the number of points on each segment. The common point connecting segments 
is considered to belong to the first segment encountered so that each segment 
must have at least one point. NBTWN(I) applies to the first cross-section 
segment, NBTWN(2) applies to the second segment, etc. The sum of NBTWN(I), 

I = 1, LOFMX - 1 values input must equal NSS - 1. The control offered by 
this card set can only be applied to the complete lofting and cross-section 
lofting input modes. It is also omitted when INC(2) = 0. 

As an example, consider the illustration of a typical cross section in 
figure 33. Seven cross-section segments have been used to define the cross 
sections. The segment end points are represented by the heavy dots. The 
seven values provided on card type 3 are 3, 6, 1, 6, 4, 3, and 1. Therefore, 
segment 1 on each cross section will contain three equally spaced subsegments 
over the segment length. This length can be zero, in which case all five 
points would be coincident. For illustration, all points are clearly djs- 
tinguishable on this figure. The tick marks indicate the segment subdivisions. 

Card Variable name Column(s) Format Var iable description 

Omit this card set if INC(2) = 0. 

3 NBTWN(I) 1 to 50 10(3X,I2) Prescription for cross-section point 

(Right- distribution. If NBTWN(I) = N, 
adjusted) then N evenly spaced points are 
distributed on cross-section seg- 
ment I. The last value of I must 
be equal to LOFMX - 1 . Each valu> 
of NBTWN(I) for I = 1, LOFMX - 1 
must be greater than zero. 

LOFMX- 1 

NBTWN(I) = NSS - 1 

1=1 
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Card Set 4: Complete Lofting Input 


This card set controls the lofting and slope control lines for the com- 
plete lofting input mode and is utilized only when INC(1) =0. A set of 
longitudinal lofting lines are the primary means for creating the fuselage 
geometry. As previously discussed, the projections of these lofting lines are 
curve fitted with a chain of second-degree curve segments. An illustration of 
a three-dimensional space curve and the segments used to define its projec- 
tions in the longitudinal coordinate planes are illustrated in figure 34. The 
space curve is represented by the heavy solid curve and its projections are 
represented by the dashed curves. The heavy dots represent the end points of 
the various second-degree segments used to define the projections. There is 
no limit to the number of segments that can be utilized to define a projection, 
nor do the number and/or location of the segment and points have to be the 
same between various projections. In this illustration, three segments were 
utilized to define the projection in the lateral XY plane and five segments to 
define the projection in the vertical XZ plane. The order of curve projection 
input is arbitrary; that is, the XZ projection of lofting line n can either 
follow or precede the XY projection of slope control line n - 1. However, 
the chain of segments defining any single longitudinal curve projection must 
be input in order of increasing X. 

As stated in the section "Analytic Curve Definition," curved segments in 
the formulation require a slope control point. Several methods have been made 
available to the user for supplying the necessary information to establish the 
control points for the longitudinal curve segments. The XZ projection of the 
space curve shown in figure 34 is reproduced in figure 35 to illustrate the 
various options available. The first of the five segments is a straight-line 
segment and requires no slope control point. The input of angles is illus- 
trated as the means to define the slopes at the ends of segment 2. Slopes are 
input for the ends of segment 3. The X and Z coordinates of two additional 
points are used to define the slopes at the ends of segment 4. The points are 
denoted by the two asterisks. The first point lies within the longitudinal 
limits of the segment and the second point does not. There is no restriction 
on the location of these points and both could just as well be completely 
inside or outside the longitudinal limits of the segment. The slopes are 
determined by the straight-line segment connecting each of these additional 
points with its appropriate segment end point. The same process can be 
accomplished with proper choice of a single extra point such as the asterisk 
beneath segment 5 which controls the slopes at both of its end points. This 
point is identical to the slope control point described in the section 
"Analytic Curve Definition." There is no restriction on the homogeneity of 
input for controlling the slopes at the end points of a segment and any combi- 
nation of the various methods can be applied to any given segment. 

A slope continuity option is also provided in which the slope at the 
initial point of the segment in question can be set equal to the slope at the 
final point of the previous segment. In addition, the slope at the final 
point of the segment in question can be set equal to the slope at the initial 
point on the next segment. If full use were made of this option, then only 
two additional points would have been required to generate a first derivative 
continuous curve for the projection shown in figure 35. These two points are 
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indicated by the diamond <^> for segment 3 and the asterisk beneath segment 5. 
However, first derivative continuity is not a requirement in either the longi- 
tudinal or cross-sectional projections. 

The Y and Z coordinates of the lofting lines at the prescribed longitudi- 
nal locations of the cross sections are the end points for the cross-sectional 
segments. The control of the slopes at the end points of these cross-sectional 
segments in the complete lofting input mode is governed by an additional longi- 
tudinally lofted space curve for each pair of adjacent surface lofting lines. 
The curves are denoted as slope control lines and are based on the concept 
described in reference 7. The slope control lines are simply the locus of the 
cross-section segment slope control points as described in the section "Ana- 
lytic Curve Definition" (fig. 4). The points to be fitted are usually deter- 
mined by simple layout of the slope control points determined from sketches or 
drawings of the dominating cross sections. 

The card types illustrated in figure 36 are the means for providing the 
necessary data to exercise the complete lofting option. The two similar types 
of input cards, 4 a and 4B, are read by a single format. Card type 4A is the 
initial input card for each lofting and slope control line projection. lYZ 
defines the plane of projection where lYZ = 1 indicates the XY plane and 
lYZ = 2 indicates the XZ plane. NOP indicates the number of points that will 
be used to define this lofting or slope control line projection. This number 
must be provided for each new projection since unequal numbers of points may 
be utilized to define them. 

ABCX(I) is the longitudinal coordinate (X value) of the initial point on 
the curve projection. This value must be less than or equal to the X value of 
the first cross section (X(1) on card type 1C). 0RD(1) is either the lateral 

(Y value) or vertical (Z value) of the initial point depending upon the pro- 
jection plane (that is, if lYZ = 1, it is the Y value and if lYZ = 2, it is 
the Z value). ‘ 

i 

ITCO(I) indicates the type of input provided through CABXO(I) and/or 
CORO(I) to define the initial slope of the first segment. If ITC0(1) = 0, no 
slope information is provided and CABXO(I) and C0R0(1) are ignored. If 
ITCO(I) = 1, the value of the slope is set equal to CABXO(I) while C0R0(1 ) is 
ignored. If ITC0(1) = 2, CABXO(I) is read as an angle (in degrees) and the 
slope is set equal to its tangent (C0R0(1) is ignored). If ITC0(1 ) = 3, 
CABXO(I) is read as the abscissa (X value) and C0R0(1) is read as the ordinate 
(Y or Z value, depending on the projection plane) of a point to determine the 
slope. The slope is set equal to the slope of the straight-line segment 
between this point and the initial point of the segment []CABX0( 1 ) ,0RD( 1 )] . 

Card type 4B cards contain the information for the remaining points of 
each segment along the lofting and slope control line projection. ID identi- 
fies the type of curve projection being defined. If ID = 0, the curve is a 
lofting line. If ID = 1 , the curve is a slope control line. LNO defines 
which lofting or slope control line is being considered. The lofting lines 
are numbered from 1 to LOFMX in a clockwise manner around the cross sections. 
Slope control lines are numbered from 1 to LOFMX - 1 in the same clockwise 
fashion. Therefore, slope control line 1 governs the slopes of the first 
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segment at each cross section where the end points are determined from lofting 
lines 1 and 2; slope control line 2 governs the slopes of the second cross- 
section segments between lofting lines 2 and 3; and so forth. ICUR identifies 
the type of curve fit intended for this longitudinal segment. If ICUR = 1, 
the curve segment is to be a straight line. If ICUR = 0, the coefficients 
for an elliptical segment are to be determined. 

ABCX(I) is the value of the abscissa (X coordinate) of the last point 
on the current (1-1 )th longitudinal segment. ORD(I) is either the lateral 
(Y coordinate) or vertical (Z coordinate) value of the end point of the 
(1-1 )th segment. If lYZ = 1, it is the Y coordinate and if lYZ = 2, it is 
the Z coordinate. 

ITCI(I), CABXI(I), and CORI(I) define the slope at the last point of the 
(1-1 )th curve segment. These parameters define the type of longitudinal slope 
control input provided (none, angle, slope, or point coordinates) in the same 
manner described for ITC0(1), CABXO(I), and C0R0(1) on card type 4A with one 
exception. If ITCI(I) = 0, the slope at the end of this [the (1-1 )th] seg- 
ment will be set equal to the slope at the beginning of the next Ith segment. 
The use of the option forces longitudinal first derivative continuity between 
successive segments. The program is structured so that once a set of coeffi- 
cients for this segment of the curve projection has been determined, a search 
is immediately conducted to find all the required cross-section locations 
between the end points. The segment coordinates at these cross sections are 
calculated and saved. Then the last point of the current segment is reset as 
the initial point of the next segment and the coefficients of the current seg- 
ment are dropped. Therefore, no blank spaces in the longitudinal definition 
of the curve projections can occur and NOP - 1 type 4B cards must be fur- 
nished in order of increasing longitudinal locations (X values). 

ITCO(I), CABXO(I), and CORO(I) are means of providing the data to control 
the initial slope of the next Ith segment. If ITCO(I) = 0, the initial slope 
of the Ith segment is set equal to the last slope of the (1-1 )th (or current) 
segment 'and CABXO(I) and CORO(I) are ignored. Therefore, ITCO(I) has the same 
effect on the first derivative continuity between the (1-1 )th and Ith segments 
as ITCI(I) = 0. However, both ITCI(I) and ITCO(I) should not be set equal to 
zero simultaneously unless a zero slope is intended for the continuity slope 
between these segments. ITCI(I) □ 0 indicates that the slope control data are 
contained in CABXO(I) and CORO(I) and ignores CABXI(I) and CORI(I). Con- 
versely, ITCO(I) = 0 indicates that the slope control data are contained in 
CABXI(I) and CORI(I) while CABXO(I) and CORO(I) are to be ignored. Simulta- 
neous application of these effects causes the default option of zero to be 
applied. If ITCO ^ 0, its value (1, 2, or 3) identifies the type of slope 
information contained in CABXO(I) and CORO(I) in the same manner previously 
described for ITC0(1), CABXO(I), and C0R0(1) on card type 4A. 

Card Variable name Column(s) Format Variable description 

4A IYZ 2 II 1: Projection in XY plane (plan 

view) . 

2: Projection in XZ plane (profile). 
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Card Variable name Column (s) Format Variable description 

4A NOP 4 to 5 12 Number of points' being input to 

define this curve projection. 

ABCX(I) 11 to 20 F10.4 Abscissa (X value) of initial point 

for this lofting or slope control 
line projection. 

0RD(1) 21 to 30 F10.4 Ordinate (Y value if lYZ = 1; 

Z value if lYZ b 2) of initial 
point for this lofting or slope 
control line projection. 

ITCO(I) 34 to 36 12 Slope control flag for initial slope 

of the first segment in lofting 
direction. 

0: No slope information is supplied. 

1: CABXO (columns 56 to 65) contains 

value of slope. 

2: CABXO (columns 56 to 65) contains 

angle in degrees, such that the 
Slope = tan [CABX0(1)]. 

3: Slope control point is supplied 

(abscissa in columns 56 to 65; 
ordinate in columns 66 to 75). 

CABXO(I) 56 to 65 F10.4 Either slope, angle, or control point 

abscissa for the initial slope of 
the first segment of the projected 
curve. 

COROd) 66 to 75 F10.4 Control point ordinate for the', initial 

slope of the first segment of the 
projected curve. 

CHKINP 80 A1 Input check symbol. An asterisk (») 

must be input if IDACHK = 1 on 
card type IB; otherwise, leave 
blank. 

4B ID 2 II 0: Lofting line. 

1: Slope control line. 

LNO 4 to 5 12 Identification number for lofting or 

slope control line. Lofting lines 
are numbered from 1 to LOFMX in 
clockwise manner from top center 
line. Slope control lines are num- 
bered from 1 to LOFMX - 1 in 
clockwise manner from top center 
line. 


I - 
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Card Variable name Column(s) Format 


Variable description 


4B ICUR 7 II Segment generation flag in lofting 

direction. 

0: General second-degree conic. 

1: Straight line. 

ABCX(I) 11 to 20 F10.4 Abscissa (X value) of end point of 

current lofting or slope control 
line projection segment [(1-1 )th 

ORD(I) 21 to 30 F10.4 Ordinate (Y value if lYZ = 1, 

Z value if lYZ = 2) of end point 
of current lofting or slope control 
line projection segment [(1-1 )th 
segment] . 

ITCI(I) 31 to 32 12 Slope control flag for final slope of 

the (1-1 )th segment in lofting 
direction. Input if ICUR = 0. 

0: Use following slope or default 

(Slope B 0) value. 

1: Slope is supplied by CABXI(I) 

(columns 36 to 45). 

2: Angle in degrees is supplied 

by CABXI(I) (columns 36 
to 45) such that the 
Slope = tan [CABXI(I)] . 

3: Slope control point is supplied. 

CABXI(I) (columns 36 to 45) 
contains the abscissa. CORI(I) 
(columns 46 to 55) contains the 
ordinate . 

ITCO(I) 34 to 35 12 Slope control flag for initial slope 

of exit from the Ith segment in 
lofting direction. 

0: Use previous slope or default 

(Slope = 0) value. 

1 : Slope is supplied by CABXO 

(columns 56 to 65). 

2: Angle in degrees is supplied by 

CABXO (columns 56 to 65). 

3: Slope control point is supplied 

(abscissa in columns 56 to 65; 
ordinate in columns 66 to 75). 

CABXI(I) 36 to 45 FI 0.4 Either slope, angle, or control point 

abscissa for final slope of the 
(1-1 )th lofting or slope control 
line segment. 
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Card Variable name Column( s) Format Variable description 

4B CORI(I) 46 to 55 FI 0.4 Control point ordinate for the final 

slope of the Ith lofting or slope 
control line segment. 

CABXO(I) 56 to 65 F10.4 Either slope, angle, or control point 

abscissa for initial slope of the 
Ith lofting or slope control line 
segment . 

CORO(I) 66 to 75 F10.4 Control point ordinate for initial 

slope of the Ith lofting or slope 
control line segment. 


Card Set 5: Longitudinal Lofting Input 

This card set contains the information for controlling the numerical 
model by supplying the projection points of the lofting and/or slope control 
lines at each cross-section location prescribed on card type 1C. No analytic 
definition of the longitudinal curve projections is calculated so intermediate 
cross sections cannot be determined. However, the same control over the indi- 
vidual cross sections as that described for the complete lofting input mode 
can be applied. But unlike the complete lofting input mode, the lofting and 
slope control line projection data must be provided in the order illustrated 
in figure 37. The projection of the first lofting line (upper fuselage center 
line) in the XY plane must be defined first and the Y coordinates (planform) 
must be provided for each cross-section location in order of increasing X 
(X(I), I = 1,NXS prescribed on card type 1C). The projection of the first 
lofting line (still upper fuselage center line) in the XZ plane is defined 
next and Z coordinates (profile) must be provided for each cross section. 

The projections of the first slope control line in the XY and XZ planes are 
defined next. This order of input is maintained for the second, third, . . ., 
etc,, lofting and slope control lines until LOFMX = 1 sets have been com- 
pleted. Since the number of slope control lines is always one less than the 
number of lofting lines, the last set of data contains only the XY and XZ 
plane projections of the final lofting line. This input option is activated 
by setting INC(1) = 1. 

Card Variable name Column( s) Format Variable description 

Omit this card set if INC(1) ^ 1. 

5A YL(I,J) 1 to 80 8F10.4 Y values of the Ith lofting line at 

Jth cross sections. Repeat this 
card until J = NXS. 

5B ZL(I,J) 1 to 80 8F10.4 Z values of the Ith lofting line at 

Jth cross sections. Repeat this 
card until J = NXS. 
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Card Variable name Column(s) Format 


Variable description 


5C YSL(I,J) ,1 to 80 8F10.4 Y values of the Ith slope control 

line at Jth cross sections. Repeat 
this card until J = NXS. 

5D ZSL(I,J) 1 to 80 8F10.4 Z values of the Ith slope control 

line at Jth cross sections. Repeat 
this card until J = NXS. 

Repeat card set 5 until I = LOFMX - 1 . Then repeat 
cards 5A and 5B for I = LOFMX. 


Card Set 6: Cross-Sectional Lofting Input 

This input option provides the capability for accepting lofting and slope 
control point data from cross-section sketches. The basic difference between 
this option and the one described for card set 5 is simply the order of input. 
The data for all lofting and slope control points are provided for one cross 
section before proceeding to the next. Their order of input is the same as 
listed on card type 1C. The same clockwise from top center-line numbering of 
the lofting and slope control lines is retained. The input is provided in 
lateral and vertical (Y and Z) coordinate pairs as indicated in figure 38. 

For the Jth cross section, the coordinates of the first lofting point, 

[yL( 1 , J) , ZL(1 , J)] , are input first, the coordinates of the first slope control 
point, [YSL(1 , J) ,ZSL(1 , J)] , are input next; then the coordinates of the sec- 
ond lofting point, [YL(2, J) ,ZL(2, J)] , and the second slope control point, 
[ySL( 2 , J) ,ZSL(2 , J)] , are input, respectively. The process is repeated until 
LOFMX lofting points and LOFMX - 1 slope control points have been provided. 
The entire cycle is repeated for each of the NXS cross-section locations indi- 
cated on card type 1C. This input option is activated by setting INC(1) = 3 - 

Card Variable name Column( s) Format Variable description 

1 to 80 2(4F10.4) Y and Z values of the first lofting 

point and the first slope control 
point for the Jth cross section. 

I increases in the clockwise 
direction beginning at top center 
line. Repeat card 6A until LOFMX 
lofting points and LOFMX - 1 
slope control points have been 
input. 

Repeat card set 6 for J = 1,NXS. 


Card Set 7: Point-by-Point Input 

This card set contains the information for controlling the numerical 
model through the point-by-point input mode. The data are read by cross 


6A [YL(I,J), 
ZL(I,J), 
YSL(I,J), 
ZL(I, J)j 
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sections corresponding to the X locations prescribed on card type 1C. The 
cross sections are defined by lateral and vertical (XY) coordinate pairs, 

[yL(I, J) , ZL(I , J)] , as indicated in figure 39. The cross-section counter for 
this input is I, Four coordinate pairs per card (type 7A) are input until 
J = NSS number of points have been provided for the Ith cross section. The 
process is then repeated until the I = NXS cross sections at locations pre- 
scribed on card type 1C have been defined. Intermediate values on the numeri- 
cal model cannot be determined in either the longitudinal or cross-section 
directions when this input mode is employed. This option is activated by 
setting INC(1) = 2. 

Card Variable name ColumnC s) Format Variable description 

Omit this card set if INC(1) / 2. 

7A [YL(I,J), 1 to 80 4(2F10,4) Y and Z values of the Ith cross 

ZL(I,J)3 section. J increases in the 

clockwise direction beginning at 
the fuselage top center line. 
Repeat for J = 1,NSS. 


Repeat card set 7 for I = 1,NXS. 


Card Set 8: Aero/Propulsion Surface Input 

This card set contains information to control the fuselage geometry sub- 
tended by a propulsion system mounted along the bottom center line of the 
fuselage. This is the specialized aero/propulsion option previously described 
in the section "Auxiliary Fuselage Geometry." Only the planform projection 
(XY plane) of the propulsion system is required as input. The true three- 
dimensional surface created by the projection of this planform onto the fuse- 
lage geometry is calculated. Three types of card input as illustrated in 
figure 40 are required for this option. Card type 8A contains the data for 
controlling the distribution of the elements on this new surface as well as 
the longitudinal and initial lateral limits of influence of the propulsion 
system. NESEG defines the number of evenly spaced spanwise strips to be 
defined on this new surface. NESEG + 1 evenly spaced fuselage surface points 
in the cross-section (XY) plane will be determined at each fuselage cross- 
section location subtended by the propulsion system. In addition, if the 
longitudinal location of the inlet entrance and nozzle exit plane (XINLT and 
XNOZ, respectively) do not coincide with established fuselage cross sections, 
an intermediate set of fuselage points will be determined at each of these 
locations. YINLT defines the spanwise limit of the planform at the inlet 
entrance. The remaining spanwise limits of the propulsion system planform are 
automatically determined from the curve coefficients. 

Card type 8B contains the data to control the amount of input to be sup- 
plied, the printed output requirements, and the data required to define the 
initial conditions at the first point on the first segment of the propulsion 
planform. NOP defines the number of points being supplied to calculate the 
coefficients for the NOP - 1 segments which make up the projection of the 
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planform. The same technique is employed for this projection as that described 
in card set 4 for the lofting and slope control lines. IPRT = 0 causes all 
printout for this option to be bypassed. IPRT = 1 causes a printout of the 
segment coefficients, the coordinates of the new surface, and the running 
lengths calculated along the fuselage ahead of this surface for use in skin- 
friction calculations. The remaining parameters on this card, ABCX(1), 0RD(1), 
ITCOd), CABXO(I), and C0R0(1), are identical in input and influence to the 
same variables described for card type 4A. 

Card type 8C contains the information for identifying the segment of the 
propulsion planform, the type of curve segment being fitted, and the point and 
slope data about the last point on the Ith segment. NSEG is the number of the 
segment counting from the inlet station toward the rear of the fuselage. ICUR, 
ABCX(I), ORD(I), ITCI(I), ITCO(I), CABXI(I), CORI(I), CABXO(I), and CORO(I) 
are completely equivalent in input and application to the same variables as 
listed on card type 4B. 

Card Variable name Column( s) Format Variable description 


8A 


8B 


Omit this card set for INC(4) ^ 1. 


NESEG 

2 to 3 

12 

Number of evenly spaced spanwise 




strips to be defined on this new 
surface. 


XINLT 

6 

to 

15 

F10.4 

XNOZ 

16 

to 

25 

F10.4 

YINLT 

31 

to 

40 

F10.4 

NOP 

2 

to 

3 

12 

IPRT 


5 


11 


ABCX(l) 6 to 15 F10.4 


Longitudinal location of the inlet 
entrance plane. 

Longitudinal location of the nozzle 
exit plane. 

Spanwise limit of the planform at 
the inlet entrance. 

Number of points being supplied to 
calculate coefficients. 

Print segment coefficients, coordi- 
nates of the new surface, and the 
running lengths. 

0: No 

1 : Yes 

Abscissa (X value) of initial point 
for the surface planform projection 
in the XY plane. 
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Card Variable name ColumnC s) Format Variable description 

8B 0RD(1) 16 to 25 F10.4 Ordinate (Y value) of initial point 

for the surface planform projection 
in the XY plane. 

ITCOd ) 29 to 30 12 Slope control flag for the initial 

slope in the curve projection. 

0: No slope information is supplied. 

1: CABXOd) (columns 51 to 60) con- 

tains the value of slope. 

2; CABXOd) (columns 51 to 60) con- 
tains angle of degrees such that 
the Slope = tan [CABXO(I)]. 

3: Slope control point is supplied. 

CABXOd) (columns 51 to 60) 
contains the abscissa and 
COROd) (columns 6l to 70) 
contains the ordinate. 

CABXOd) 51 to 60 F10.4 Either slope, angle, or control point 

abscissa for the initial slope of 
the first segment of the curve 
projection. 

COROd) 6l to 70 F10.4 Control point ordinate for initial 

slope of the first segment of curve 
projection. 

8C NSEG 2 to 3 12 Number of the segment being fitted. 

ICUR 5 II Segment generation flag in lofting 

direction . 

0: General second-degree conic. 

1: Straight line. 

ABCX(I) 6 to 15 F10.4 Abscissa (X value) of end point of 

current lofting line projection 
segment f(I-1)th segment]. 


ORD(I) 16 to 25 F10.4 Ordinate (Y value) of end point of 

current lofting line projection 
segment [(1-1 )th segment]. 
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Card Variable name ColumnC s) Format 


Variable description 


8C ITCI(I) 26 to 27 12 Slope control flag for final slope of 

the (1-1 )th segment in lofting 
direction. Input if ICUR = 0. 

0: Use following slope or default 

(Slope = 0) value. 

1: Slope is supplied by CABXI(I) 

(columns 31 to 40). 

2: Angle in degrees is supplied by 

CABXI(I) (columns 31 to 40) such 
that the Slope = tan [CABXI(I)]. 

3: Slope control point is supplied. 

CABXI(I) (columns 31 to 40) 
contains the abscissa, CORI 
(columns 4l to 50) the ordinate. 

ITCO(I) 29 to 30 12 Slope control flag for initial slope 

of the Ith segment in lofting 
direction. 

CABXI(I) 31 to 40 F10.4 Either slope, angle, or control point 

abscissa for final slope of the 
(1-1 )th segment of this lofting 
line projection (Ith segment). 

CORI(I) 41 to 50 F10.4 Control point ordinate for final 

slope of the (1-1 )th approach to 
lofting line projection segment. 

CABXO(I) 51 to 60 FI 0.4 Either slope, angle, or control point 

abscissa for initial slope of this 
lofting line projection segment 
(Ith segment). 

CORO(I) 61 to 70 F10.4 Control point ordinate for initial 

slope of this lofting line projec- 
tion segment (Ith segment). 


INPUT FOR PLANAR-SURFACE GEOMETRY GENERATION (WINGS, TAILS, ETC.) 

As previously mentioned the wing, canard, horizontal tail, and fin geom- 
etries are generated in the same manner. The following input description 
applies to all these components unless otherwise specified. 

All input values for these components are entered through the FORTRAN 
Namelist WING with the exception of the arbitrary airfoil option input and the 
manual option input. Most of the Namelist variables are preset to nominal 
values, which should reduce the actual number of Namelist entries that the 
user must make. Figure 4l shows in flow chart form the options that are avail- 
able and the input parameters associated with them. 
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Namelist WING 


Item Variable name Type Variable description 

(1) INPUT Integer Geometry input flag. 

1: Generate component geometry (default). 

2: Component geometry will be hand input. 

(See description for manual input.) 

Area input 


Omit items (2) and (3) if (4) and (5) are 
input. 


(2) 

AW 

Real 

True surface area of component. Default: 
AW = 0. 

(3) 

ARW 

Real 

Aspect ratio, BW^/AW. Default: ARW = 1. 




Refer to figure 9 for items (4) to (12). 

Planform 

input 


Omit items (4) and (5) if (2) and (3) have 
been input. 

(4) 

BW 

Real 

Total span. Exception: fin - distance from 

root chord to tip chord. 

(5) 

CRW 

Real 

Root chord . Default : CRW = 0 . 

(6) 

B1BW 

Rea] 

Ratio of breakpoint to span, B1BW. 
Default: B1BW = 0. 

(7) 

TRW 

Real 

Taper ratio, CTW/CRW. Default: TRW = 0. 

(8) 

SWEOB 

Real 

Leading-edge sweep angle of a single-paneled 
surface or the second leading-edge sweep 
angle of a two-paneled surface, degrees. 

No default. 

(9) 

SWELG 

Real 

First leading-edge sweep angle of a two- 


paneled surface, degrees. Default: 

SWELG = SWEOB. Omit for a single-paneled 
surface . 


(10) SW1 Real First trailing-edge sweep angle of a two- 

paneled surface, degrees. Omit for a 
single-paneled surface. Default: SW1 = 90. 

(11) ANGR Real Span-line deflection at the root chord, 

degrees. Default: ANGR =0. 
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Item 

Variable name 

Type 

Variable description 

(12) ANGT 

Airfoil 

Real 

Span-line deflection at the tip chord, 
degrees. Default: ANGT = 0. 

(13) 

ICHRD 

Integer 

Airfoil shape flag. 

1: Slab-sided airfoil section. (Default) 

2: Circular-arc airfoil section. 

3: Arbitrary airfoil. (See description for 

arbitrary airfoil input.) 




Refer to figure 10 for items (14) and (15). 




Omit items (14) and (15) for ICHRD ^ 1. 

(14) 

XWD1 

Real 

Start of flat section of slab airfoil. 
Default: XWD1 = 0.5. 

(15) 

XWD2 

Real 

End of flat section of slab airfoil. 
Default: XWD2 = 0. 

Panel 

spacing 



(16) 

NYU 

Integer 

Number of spanwise chord stations. 

2 ^ NYU ^ 19. Default: NYU = 10. 

(17) 

NXU 

Integer 

Number of longitudinal stations along chord. 
2 "s NXU ^ 30. Default: NXU = 10. 

(18) 

NSPACE 

Integer 

Point redistribution flag. 


1 : Do not redistribute input or generated 


surface points. (Default) 

2: Redistribute surface points to be equally 

spaced in the chordwise direction. 

NSPACE = 2 is not recommended for any air- 
foil with chordwise breakpoints as the 
respacing may skip over the discontinuities 
This option, however, would be convenient 
if an arbitrary airfoil is input with a 
concentration of points at the leading edge 
The set of leading-edge points is available 
for leading-edge detail, then with 
NSPACE = 2, NXU number of points can be 
equally spaced. 

Input items (19) and (20) if ICHRD = 3. 

(19) NPCU Integer Number of input chord used to describe the 

upper surface of an arbitrary airfoil, 

2 S NPCU ^ 30. 
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Item Variable name Type Variable description 

(20) NPCL Integer Number of input chords used to describe the 

lower surface of an arbitrary airfoil. 

2 < NPCL S 30. 

(21) ITEETH Integer Define wing tip with a chord plane. 

0: No (Default) 

1 : Yes 

Leading-edge radius 

(22) IRADE Integer Leading-edge radius flag. 

0: Zero leading-edge radius. (Default) 

1 : Leading-edge radius constant for entire 

surface. 

2: Leading-edge radius proportional to each 

chord. (Radius varies with chord 
length. ) 

(23) RADE Real Leading-edge radius. Input for IRADE f 0. 

(i) Input absolute value for IRADE = 1. 
(ii) Input fraction of chord length for 
IRADE = 2. 

Flap and all-movable control surface 

Refer to figure 16 for items (24) to (32). 

(24) ICON Integer Control surface flag. 

0: Do not compute a control surface. 

(Default) 

1: Compute a control surface. 

2: This component is an all-movable control 

surface . 

Omit items (25) to (32) if ICON = 0. 

(25) NPHX Integer Number of leading-edge points not to be 

respaced. The control surface option will 
not relocate the first NPHX points in 
respacing spanwise points such as on the 
leading edge. For the automatic mode 
(IHPUT = 1) and ICHRD = 1 or 2, NPHX is 
automatically set equal to the number of 
leading-edge points. Use this option only 
for ICON = 1, 
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Item Variable name 


Type 


Variable description 


(26) 

IFLAP 

Integer 

Control surface array flag. 

.. 0: Control surface array will not be saved 

in a separate array. (Default) 

1: Control surface array generated. Flaps 

1 are set to 0°. DELFtf = DELFL = 0. 

(27) 

XCOR 

Real 

Hinge-line position along root chord as a 
fraction of chord length. 

(28) 

XCOT 

Real 

! 

Hinge-line position along tip chord as a 
fraction of chord length. 

(29) 

DELFU 

Real 

Upper control surface deflection, degrees, 
normal to the hinge line in the wing 
surface plane. Positive deflection is 
with trailing edge down. Default: 

DELFU = DELFL. 

(30) 

DELFL 

Real 

Lower control surface deflection, degrees, 
normal to the hinge line in the wing 
surface plane. Positive deflection is 
with trailing edge down. Default: 

DELFL = DELFU, 

(31) 

ZCOR 

Real 

Vertical distance to hinge line at root chord 

(32) 

ZCOT 

Real 

Vertical distance to hinge line at tip chord. 

Thickness and camber 






Refer to figure 12 for items (33) and (35). 

(33) 

TWRD 

Real-array 

Section thickness ratio at span location 
YTHK(I), I = 1,20. If TWRD is constant, 
only one value must be input. Default: 
TWRD =0.05. 

(34) 

YTHK 

Real-array 

Spanwise locations of input thickness and 
camber ratios, TWRD and TCD. Table must 
be in ascending order. If TWRD and TCD 
are input as constants, omit YTHK, 

(35) 

TCD 

Real-array ' 

' Mean camber line thickness ratio at station 


YTHK(I). If TCD is constant, only one 
value must be input. Default: TCD = 0. 


Dihedral 


Refer to figure 17 for items (36) to (40). 
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Item Variable name 


Type 


Variable description 


( 36 ) IDIHE Integer Dihedral flag. 

’ 1 : Compute leading-edge dihedral . Input 

AWR, AWT. (Default) 

2: Input leading-edge dihedral. Input 

YDIH, ZDIH. 

Omit items (37) and ( 38 ) if IDIHE = 2. 


(37) 

AWR 

Real 

Dihedral angle at 
Default: AWR = 

surface 

0. 

root. 

degrees 

(38) 

AWT 

Real 

Dihedral angle at 
Default: AWT = 

surface 

0. 

tip. 

degrees. 


Omit items (39) and (40) if IDIHE = 1. 

(39) YDIH Real-array Leading-edge dihedral Y coordinates 

in ascending order; that is, 

YDIH(I) ^ YDIHd - 1), 2 ^ I ^ 20. 

(40) ZDIH Real-array Leading-edge dihedral Z coordinates 

corresponding to YDIH. 

Twist 

(41) TWISTX Real Twist angle, degrees. Positive trailing 

edge rotated down at tip. Default: 
TWISTX =0. See figure I 8 . 

Translation and rotation 

Translation occurs before rotation. 


Refer to figure 19 for items (42) to (50). 


(42) 

XW1 

Real 

Translation 

Default: 

in X direction 
XW1 = 0. 

(longitudinal) . 

(43) 

YBR 

Real 

Translation 

Default: 

in Y direction 
YBR = 0. 

(lateral) . 

(44) 

ZBR 

Real 

Translation 

Default: 

in Z direction 
ZBR = 0. 

(vertical) . 

(45) 

THETA 

Real 

Roll angle, 
(XROTAT, 

degrees, about 
YROTAT, ZROTAT). 

the rotation point 
Positive roll, 


wing tip up. 

Defaults: THETA = 0. (Wing, canard, 

horizontal tail) 

THETA = 90 . (Fin) 
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Item Variable name 


Type 


Variable description 


(46) ALPHA Real Pitch angle, degrees, about the rotation point 

(XROTAT, YROTAT, ZROTAT). Positive leading 
edge up. Default: ALPHA = 0. 

(47) BETA Real Yaw angle, degrees, about the rotation point 

(XROTAT, YROTAT, ZROTAT). Positive is 
counterclockwise rotation in the XY plane. 
Default: BETA = 0. 

The rotation point is the point about which 
any roll, yaw, or pitch will occur. 

(48) XROTAT Real X coordinate of rotation point. 

Default: XROTAT = XW1 . 

(49) YROTAT Real Y coordinate of rotation point. 

Default: YROTAT = YBR. 

(50) ZROTAT Real Z coordinate of rotation point. 

Default: ZROTAT = ZBR . 

Reference length 

(51) REFLW Real Reference length of fuselage. This input 

is used to internally scale all sets of 
component geometries to common units. 

Default: REFLW b 0. (An input of zero 

indicates that the units of the surface 
are the same as for the fuselage.) 

Merge with fuselage 

(52) IMERGE Integer Surface-fuselage intersection flag. 

0: Do not merge component with fuselage. 

-1,1: Find intersection of component with 

fuselage. Default: IMERGE = 1. 

Negative input of IMERGE results in debug 
printing of merging iterations. 

(53) NDEBUG Integer MERGE debug print flag. Omit if IMERGE ^ 0. 

0: Debug printing for all intersections for 

this component. 

1: Debug printing for any ray with no 

intersection. (Default) 

Print output 
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Item Variable name Type Variable description 

(54) IPRNT Integer Output control flag. 

1: Do not print output. 

2: Print input and final geometi i . 

(Default) 

3: Print input, calculated parameters, 

geometry after intermediate manipula- 
tions, and final geometry. 


Arbitrary Airfoil Input 

Omit items (55) to (58) if ICHRD i 3. These input items must be 
inserted immediately after the Namelist WING. Refer to figure 14. 


Item Variable name Type or format 


(55) XAU 7F10.3 

(56) ZAU 7F10.3 

(57) XAL 7F10.3 

(58) ZAL 7F10.3 


Variable description 

X coordinates of upper airfoil surface. 
Repeat item (55) format until NPCU 
values of XAU have been input. 

Z coordinates of upper airfoil surface. 
Repeat item (56) format until NPCU 
values of ZAU have been input. 

X coordinates of lower airfoil surface. 
Repeat item (57) format until NPCL 
values of XAL have been input. 

Z coordinates of lower airfoil surface. 
Repeat item (58) format until NPCL 
values of ZAL have been input. 


Manual Input 

Omit items (59) to (62) if INPUT i 2. Items (59) to (62) must be 
inserted directly after Namelist WING. Refer to figure 15. 


Item 

Variable name 

Format 

Variable description 

(59) 

YW 

F10.3 

Y coordinate of chord station. 


(60) 

XW 

7F10.3 

X coordinates of chord station Y = YW from 
leading to trailing edge. Repeat item (60) 
format until NXU values of XW have been input 

(61) 

ZWU 

7F10.3 

Z coordinates of upper surface corresponding to 
each XW for chord station Y = YW. Repeat 
item (61) format until NXU values of ZWU have 
been input. 



Item 


Variable name 


Format 


Variable description 


(62) ZWL 7F10.3 Z coordinates of lower surface corresponding 

to each XW for chord station Y = YW. Repeat 
item (62) format until NXU values of ZWL have 
been input. 

Repeat sequences of items (59) to (62) until NYU values of chord stations (YW) 
have been input. 


CONCLUDING REMARKS 

The FORTRAN program GEMPAK has been used extensively on the Control Data 
6000 Series computers in conjunction with interfaces to several aerodynamic 
and plotting computer programs. There is little restriction on the type of 
configuration that can be input and the user has a wide choice of the amount 
and location of geometry detail desired. A minimum of geometry definition 
input is required and subsequent modifications or reorientations of component 
geometry can be accomplished independently of all other components with a 
minimum of input changes. These capabilities have proven GEMPAK to be an 
effective aid in the preliminary design phase of aircraft configurations. 


Langley Research Center 

National Aeronautics and Space Administration 
Langley Field, VA 23665 
August 26, 1977 
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APPENDIX A 


SUMMARY OF PROGRAM ROUTINES AND THEIR FUNCTIONS 

The overlay structure of GEMPAK is illustrated in figure 42. The func- 
tions of each of these routines are briefly outlined here. 

Routine name Identification Function 


Overlay (GEM, 0,0) 
GEMPAK 


SCALE 


TOLER 


lUNI 


SECBI 


ZBRENT 


GMA Executive routine by which all geometry 

generation routines are called. The 
GEMPAK TITLE CARD and the GEOMETRY 
OPTION CARD are read in this routine. 

GMB Scales all existing geometry to a common 

reference length. Generated geometry 
is read from TAPE28 one component at a 
time, scaled, and temporarily stored 
on TAPE38. After all components have 
been scaled, the resulting geometries 
are rewritten on TAPE28. 

GMC This routine computes a tolerance given 

two variables R1 and R2 with the 
number of significant digits set by the 
routine variable ISIG. The magnitude 
of the tolerance is controlled by the 
argument R1 . If the absolute differ- 
ence of R1 and R2 is within toler- 
ance, R2 is set equal to R1 . This 
routine is used primarily by overlay 
MERGE. 

lUNI NASA Langley Research Center Library Sub- 

routine. To interpolate a univariate 
function using conventional first- or 
second-order Lagrangian ^ interpolation . 

SECB NASA Langley Research Center Library Sub- 

routine. To determine a root of the 
real-valued function F(x) = 0 given a 
specified interval by employing a front 
end seeker and a combination bisection/ 
linear interpolation inverse quadratic 
interpolation iteration technique. 

ZBRE NASA Langley Research Center Library Sub- 

routine. To find a zero of a function 
which changes sign in a given interval. 
Called by subroutine SECBI. 
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Routine name 
ERROR 


Overlay (GEM, 1,0) 
FUS2 


SLPDET 


SECDEG 


Overlay (GEM, 1,1) 
GOODY 


Overlay (GEM, 1,2) 
ENGOUT 


FORD 


Identification 


Function 


ERRO NASA Langley Research Center Library Sub- 

routine. To test the convergence of 
a computed result based on a relative 
convergence criterion or an absolute 
convergence criterion. Called by sub- 
routine ZBRENT. 

F2A Generates fuselage geometry. Fuselage 

input card sets 1, 2, 3, 5, 6, and 7 

are read in FUS2. This routine has made 
use of the lofted slope control method 
described in a Grumman geometry package 
(QUICK) (ref. 7) and the basic element 
definition scheme defined in a Douglas 
(HABS) Hypersonic Arbitrary-Body System 
(ref. 3). The resulting fuselage geom- 
etry is written in the form of Namelist 
FUSE onto TAPE28 and TAPE38. All fuse- 
lage geometry printout occurs here. 

F2B Determines the necessary slope control 

point (Xg,!^) for a segment from the 
input information. 

F2C Determines the coefficients ( A,B,C,D,E,F) 

for the basic second-degree segment 
equation 

Ax^ + Bxy + Cy2 + Dx + Ey + F = 0 

F2D Determines surface areas, cross-sectional 

areas, volumes, centers of volume, sur- 
face normals, centroids of area, and 
fineness ratio from the basic point 
data array for the fuselage and prints 
these element characteristics, if 
required. 

F2E Generates the geometry to be deleted from 

the fuselage to accommodate a scram jet 
and nozzle. Fuselage input card set 8 
is read in ENGOUT. The resulting geom- 
etry is written in Namelist ENGHOL onto 
TAPE28 and TAPE38. 

F2F Determines spanwise coordinates of the 

scramjet engine and nozzle geometry 
from second-degree curve coefficients. 
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Routine name Identification 


Function 


CROSXD F2G 


Overlay (GEM, 2,0) WGA 

WINGEX 


Overlay (GEM,2,1) 

WGB 

INITL 


DFALT 

WGC 


PRNTIN 

WGD 

Overlay (GEM, 2, 2) 

WGE 

WINGF 



Creates engine geometry cross sections 
by interpolation of the fuselage data 
over the projected scramjet package 
boundary. 

Executive routine for planar-surface 
geometry generation. All printout 
occurs here with the exception of input 
printout, intermediate geometry print- 
out, and diagnostics. Resulting geom- 
etries are written in the Namelist form, 
according to the option chosen by user 
(WINGG, CANARD, HT, FIN, FLAP) onto 
TAPE28. 

Sets input defaults and reads all input 
for planar-surface generation. 

Determines values of the default array 
printed along with each planar-surface 
input parameter. A "D" following an 
input indicates the user has chosen the 
default input value, a blank indicates 
the value was input by user. 

Prints all input parameters for planar- 
surface generation. 

Generates all planar-surface geometry. 


FOFX WGF 

ATAK WGG 

Overlay (GEM, 3,0) MGA 

MERGE 

Overlay (GEM, 3,1) MGB 

RTAP28 

Overlay (GEM, 3,2) MGC 

RENUM 


Solves the exponent for the geometric 
progression used in the leading-edge 
enrichment. 

Rotates a given point in space (x,y,z) 
about the given point (xQ,yQ,Zg). 

Executive routine by which all routines 
necessary to find the intersection of 
a planar surface with the fuselage are 
called. 

Reads selected component geometry from 
TAPE28. 

Insures that the first chord in a planar- 
surface geometry definition is the most 
inboard. 
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Routine name 

Identification 

Function 

Overlay (GEM, 3, 3) 
REVERS 

MGD 

Reverses upper and lower surface geom- 
etries, as required. 

Overlay (GEM, 3, 4) 
PTINT 

MGE 

Determines the intersection of a planar- 
surface ray segment with the fuselage. 

CROSS 

MGF 

Finds the two-dimensional intersection 
of two given line segments and deter- 
mines whether the intersection lies 
within the end points of each of the 
line segments. 

RAYORD 

MGG 

Given one or two coordinates of a point 
on a linear line or vector, solves for 
the unknown coordinate. Also given are 
the slopes and intercepts of the line. 

TRICHK 

MGH 

Determines whether the given point 
(yi,Zi) lies within a given triangle. 

NORMAL 

MGI 

Computes the normals of the fuselage 
panel that contains the surface ray 
intersection point and of the surface 
ray segment and determines the angle 
of direction of intersection. 

Overlay (GEM, 3, 5) 
NOINT 

MGJ 

Attempts to approximate a ray intersec- 
tion point that does not touch the body 
by using the intersection of the pre- 
ceding ray. A leading-edge ray of no 
intersection will cause an error mes- 
sage to be issued and no further 
attempt at merging the component with 
the fuselage will be made. 

Overlay (GEM, 3, 6) 
ADCHRD 

MGK 

Adds the chord that defines the component 
intersection with the fuselage to the 
component geometry definition, computes 
the running lengths of a component with 
a control surface for use in Gentry’s 
hypersonic arbitrary-body Mark III 
skin- friction routine (ref. 3) and 
writes the generated geometry in final 
form onto TAPE38. 
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MAJOR PROGRAM VARIABLE DESCRIPTIONS 


Listed here are the major program variables and their definitions grouped 
according to the Labeled Common in which they appear. Any reference to a 
"wing" applies to a planar surface (fins, tails, etc.). 


Labeled 

common 

Variable 

name 

Variable 

type 

Definition 

ANG 

SWELR 

Real 

First leading-edge angle of two-paneled wing 
surface, radians 


SWEOR 

Real 

Leading-edge sweep angle of a single-paneled 
surface or the second leading-edge sweep 
angle of a two-paneled surface, radians 


SW1R 

Real 

First trailing-edge sweep angle of a two- 
paneled surface, radians 


AWRR 

Real 

Spanwise deflection at root chord, radians 


AWTR 

Real 

Spanwise deflection at tip chord, radians 

ARF 

NPCU 

Integer 

Number of input points describing the upper 
surface of an arbitrary airfoil (user 
defined) 


NPCL 

Integer 

Number of input points describing the lower 
surface of an arbitrary airfoil (user 
defined) 


ZAU 
ZAL V 
XAU / 
XAL J 

Real-array 

X and Z coordinates of the upper and lower 
surfaces of an arbitrary airfoil (user 
defined) 


ZDUMU^ 
ZDUML / 
XDUMU J 

Real-array 

Temporary wing surface X and Z coordinates 

CONTRL 

ICON 

Integer 

Control surface flag (user defined) 


DELFU 

Real 

Upper control surface deflection, degrees 
(user defined) 


DELFL 

Real 

Lower control surface deflection, degrees 
(user defined) 
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Labeled 

common 

Variable 

name 

Variable 

type 

Definition 

CONTRL 

XCOR 

Real 

Hinge-line position along root chord as a 
fraction of chord length (user defined) 


XCOT 

Real 

Hinge-line position along tip chord as a 
fraction of chord length (user defined) 


IFLAP 

Integer 

Control surface array flag (user defined) 


NHNG 

Integer 

Point along wing streamwise chord that 

identifies the control surface hinge line 


NXFL 

Integer 

Number of span lines on flap 


ZCOR 

Real 

Vertical distance to hinge line at root 
chord (user defined) 


ZCOT 

Real 

Vertical distance to hinge line at tip 
chord (user defined) 

CORD 

XU 

Real-array 

Longitudinal coordinates of wing upper 
surface geometry 


Y 

Real-array 

Spanwise coordinates of wing upper surface 
leading-edge geometry 


ZU 

Real-array 

Z coordinates of wing upper surface geometry 


ZL 

Real-array 

Z coordinates of wing lower surface geometry 


YU 

Real-array 

Spanwise coordinates of wing upper surface 
geometry 


YL 

Real-array 

Spanwise coordinates of wing lower surface 
geometry 


NXW 

Integer 

Number of points describing each wing 
streamwise chord 


NYW 

Integer 

Number of streamwise chords describing wing 


XL 

Real-array 

Longitudinal coordinates of wing lower 
surface geometry 


RFL 

Real 

Reference length (usually fuselage length) 
in wing geometry units 

DBUG 

I DBUG - 

Integer 

MERGE debug print flag 
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Labeled 

common 

Variable 

name 

Variable 

type 

Definition 

DUMXYZ 

YD 


Real-array 

Same as Y in Labeled Common CORD 


YU 

YL 1 





XU 

XL 


Real-array 

Same as for Labeled Common CORD 


ZU 
ZL , 





NY 


Integer 

Number of streamwise chords describing wing 


NX 


Integer 

Number of points describing each wing 
streamwise chord 


NAMPRT 

Alphanumeric 

array 

Array containing component identification 
for printout clarification 


EDGE 

Alphanumeric 

array 

Array containing surface edge identification 
(leading and trailing) 


ASURF 

Alphanumeric 

Surface identifier for geometry array 
(upper, lower) 

ELEV 

NHNG 

Integer 

Point along wing streamwise chord that 

identifies the control surface hinge line 


XO ^ 
YO 
ZO ) 

) 

Real 

Coordinates of point about which a control 
surface will be rotated 


DX2 

DY2 

DZ2 

) 

Real 

Distance between tip and root chord hinge- 
line position in the X, Y, and Z planes 

ENGINE 

XE 
YE 
ZE J 

1 

Real-array 

X, Y, and Z coordinates describing the 
engine hole geometry 


FLOI 

Real-array 

Temporary array of longitudinal lengths up 
to the element of interest 


SOIL 

Real-array 

Temporary array of lengths of element sides 
in the longitudinal direction 


NESEG 

Integer 

Number of segments in each cross section of 
engine hole geometry 
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Labeled 

common 

Variable 

name 

Variable 

type 

Definition 

ENGINE 

IXT 

Integer 

Total number of cross sections in engine 
hole geometry 

ER 

lERROR 

Integer 

WINGEX error flag 

ERROR 

lERR 

Integer 

GEMPAK error flag 

EX 

TWISTX 

Real 

Twist angles, degrees (user defined) 


YDIH \ 
ZDIH / 

Real 

Y and Z coordinates of leading-edge dihedral 
(user defined) 


YROTAT 

Real 

Y coordinate of wing rotation point (user 
defined) 


BETA 

Real 

Yaw angle, degrees (user defined) 


NDIH 

Integer 

Counter for number of points in YDIH and 
ZDIH arrays 

FINSTA 

MID 

Integer 

Flag for center-line component 

FUSGEM 

X 

Real-array 

Fuselage cross-sectional longitudinal 
locations 


0 

Real-array 

Y and Z coordinates of fuselage cross 
sections 


NXS 

Integer 

Number of cross sections describing fuselage 
geometry (user defined) 


NSS 

Integer 

Number of points describing each fuselage 
. cross section (user defined) 

FUSMAX 

YMX 

Real-array 

Maximum span at each fuselage cross-section 
station 


ZMAX 

Real-array 

Z coordinate at each fuselage YMX 

GARG 

NP2 

Integer 

Same as NP(2) in FUS2 


NP3 

Integer 

Same as NP(3) in FUS2 

KEEP 

CRW 

Real 

Root chord length (user defined) 


CT 

Real 

Tip chord length 


SWOR 

Real 

Wing trailing-edge sweep angle, radians 
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Labeled 

Variable 

Variable 


coimnon 

name 

type 

Definition 

KEEP 

BW 

Real 

Wing total span (exception: fin semispan) 


B1 

Real 

Wing span to xeading-edge breakpoint 


ACT 

Real 

Total computed wing area 

LEAD 

XLE 

Real-array 

Longitudinal coordinates of wing leading- 
edge enrichment 


ZLEU 

Real-array 

Z coordinates of wing upper surface leading- 
edge enrichment 


ZLEL 

Real-array 

Z coordinates of wing lower surface leading 
edge enrichment 


XXI 

Real 

Longitudinal coordinate of second wing 
leading-edge station for enrichment 


XX2 

Real 

Longitudinal coordinate of final wing 
leading-edge station for enrichment 


NO 

Integer 

Number of wing longitudinal leading-edge 
stations for enrichment 


II 

Integer 

Chord number at which wing leading-edge 
enrichment is computed 

NAME 

SURF 

Alphanumeric 

array 

Array identifying wing geometry surface 
(upper, lower) 

OVLARG 

ICODE 

Integer 

Flags geometry to be read from TAPE28 


ID 

Integer 

Index of component name array 


IG02 

Integer 

Upper and lower geometry reverse ,flag 


N 

Integer 

Real 

Array position of wing ray 
Coordinates of wing ray N intersection 


with the fuselage . 


NINT 

Integer 

Intersection flag 


Y1 

Real 

Known Y or Z coordinate of ray preceding 
ray JJ 
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Labeled 

Variable 

Variable 


conunon 

name 

type 

Definition 

OVLARG 

Y2 

Real 

Y or Z coordinate of ray JJ 



JJ 

Integer 

Array position of wing ray JJ for which no 
intersection was found 


ISURF 

Integer 

Wing surface orientation flag 


lERR 

Integer 

Routine NOINT error flag 


NSST 

Integer 

Index pointer of intersecting chord position 
in wing spanwise geometry array 


IDENT 

Integer 

Index of the name printing array (NAMPRT) 
corresponding to the component 

PANL 



This Labeled Common contains wing surface 
input parameters found in the Namelist 
WING description with the following 
exceptions: TWRDX, TCX, and SWO 


TWRDX 

Real 

Same as TWRD(1) 


TCX 

Real 

Same as TCD( 1 ) 


SWO 

Real 

Wing trailing-edge sweep angle, degrees 

RADIUS 

IRADE 

Integer 

Wing leading-edge radius flag (user defined) 


BADE 

Real 

Wing leading-edge radius (user defined) 


NPHX 

Integer 

Number of wing leading-edge points not to 
be respaced (user defined) 

SAVE 

TITLE 

Alphanumeric 

array 

Job identification (user defined) 


JO 

Integer 

Not used 


J1 

Integer 

Wing geometry data control flag 


J2 

Integer 

Fuselage geometry data control flag 


J3 

Integer 

Not used 


J4 

Integer 

Fin data control flag 


J5 

Integer 

Not used 


J6 

Integer 

Not used 
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Labeled Variable Variable 


common 

name 

type 

Definition 

SAVE 

IHT 

Integer 

Horizontal-tail data control flag 


I CAN 

Integer 

Canard data control flag 


JFLAP 

Integer 

Control surface data control flag 


NST 

Integer 

array 

Array identifying the locations of the 
intersection chords of all components 
with fuselage 


NYF 

Integer 

array 

Array containing fuselage and wing array 
limits 


REEL 

Real 

Configuration reference length 


ICO 

Integer 

Component array identification index 


MERG 

Integer 

array 

Array containing the MERGE option flag for 
each wing surface 


NDBUG 

Integer 

array 

Array containing the MERGE debug printout 
option flags for each wing surface 


JENG 

Integer 

Auxiliary fuselage geometry flag 

T28 

XLE ^ 

ZLEU 

ZLEL 

XXI 

XX2 

NO 

II 

V Same as for 

Labeled Common LEAD 


RFL 

Real 

Configuration reference length 


IFLAP 

Integer 

Control surface data control flag 

TEMP CO 

YY "1 
ZZ J 

Real-array 

Coordinates of cross-section points between 
successive lofting lines 

THICK 

NTHK 

Integer 

Counter for number of thickness and/or 
camber ratio input points 


TWRD 

Real-array 

Section thickness ratios corresponding to 
YTHK (user defined) 


YTHK 

Real-array 

Spanwise locations of input thickness and/or 


camber ratios (user defined) 
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Labeled 

common 

THICK 

TIP 

TMPY 

XPRNT 

XYZINT 


Variable 

name 

Variable 

type 

Definition 

TCD 


Real-array 

Mean camber line thickness ratio correspond- 
ing to YTHK (user defined) 

ITEETH 

Integer 

Wing tip chord plane flag (user defined) 

ANGR 


Real 

Spanwise deflection at wing root chord, 
degrees (user defined) 

ANGT 


Real 

Spanwise deflection at wing tip chord, 
degrees (user defined) 

YTMP 

ZTMP 

} 

Real-array 

Coordinates of one fuselage cross section 

RUNL 


Real-array 

Surface length in feet from nose to centroid 
of element of interest for skin-friction 
calculations 

IMERGE 

Integer 

Wing MERGE flag (user defined) 

NDEBUG 

Integer 

Wing MERGE debug print flag (user defined) 

REFLW 

Real 

Wing reference length (user defined) 

R 


Real-array 

Array that flags all wing input parameters 
as either input by user or default 

XIU 
YIU 
ZIU > 

1 

Real-array 

X, Y, and Z coordinates of the wing upper 
surface chord defining its intersection 
with the fuselage 

NIU 


Integer 

Number of points in the wing upper surface 
intersection chord 

XIL^ 

YIL 

zilJ 

> 

Real-array 

X, Y, and Z coordinates of the wing lower 
surface chord defining its intersection 
with the fuselage 

NIL 


Integer 

Number of points in the wing lower surface 


intersection chord 
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Labeled 

Qommon 

XYZRAY 


Variable 

name 

lYX 


AMY 

BY 

IXY 

AMXY 

BYX 


Variable 

type 

Integer 


Real 

Real 


Definition 

Wing ray segment equation definition flag 
in the XY plane for 

Y “ myX + ^y 

0: my 0 


1 : my = 0 

2: ray □ oo 


Segment slope (niy) in XY plane 
Segment intercept (by) in XY plane 


Same as above but for X = m^^yY + b^y 


IZY 

AMZ 

BZ 


Same as above but for Z = m^Y + 


lYZ 

AMYZ ; Same as above but for Y = myzZ + by2 
BYZ J 


IZX ^ 

AMZX / Same as above but for Z = ^zx 

BZX J 

IXZ ^ 

AMX / Same as above but for X = mxZ + b^ 

BX J 
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SAMPLE INPUT AND OUTPUT 

The following sample cases represent the same configuration using differ- 
ent GEMPAK input options. Figure 43 shows the basic layout for the fuselage 
input of sample case 1 . 

Sample case Description 

1 Fuselage (Complete lofting, INC(1) = 0) 

wing, horizontal tail, fin (Automatic input, INPUT = 1) 

2 Fuselage (Point-by-point, INC(1) = 2) 

3 Fuselage (Longitudinal lofting, INC(1) = 1) 

4 Fuselage (Cross-sectional lofting, INC(1) = 3) 

5 Fuselage (With aero/propulsion surface, INC(4) = 1) 

6 Wing (Manual input, INPUT = 2) 

7 Wing (Arbitrary airfoil, ICNRD = 3) 

8 Wing (With deflected control surface, ICON = 1) 

The final generated geometry arrays and codes necessary to fully describe 
the configuration reside on the program file TAPE38 and are therefore described 
here along with the output (TAPE6). If no fuselage is generated, such as in 
sample cases 6, 7, and 8, all final geometry will reside on TAPE28 instead of 
TAPE38. Figure 44 is a computer drawing of the generated geometry for sample 
case 1 . 
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Sample Case 1 Input 


COLUMN 


, 123^5678 

1 2 34 5 6 7 89 0 1 2 3 A 5 6 7 e 9 0 1 2 3 ^ 5 67 6 9 0 1 2 3 <r 5 6 78 9 0 1 E 3 5 6 789pi23^LlAIilOl_23^L56739O12l5l670^ 

GEMPAK SAMPLE CASE 1 (FUSELAGE^ WiNGj HORIZONTAL TAIL/ FIN) 


15 4 2 

FUSELAGE (COMPLETE LOFTING, INC(l)-O) 
600 . 9 12 21 0 1 1 

0 . 3 . 50 . 128 . 

300 # 400 . 520 . 600 . 

22 22 22 22 


0 . 

0 . 

0 . 

3 . 

39.4 

52 . 

56 . 

69 . 

0 . 

0 . 

39.906 

36.532 

0 . 

3 . 

39.4 

52 . 

56 . 

69 . 

0 . 

0 . 

3.6 
17.1 

57.006 
53.632 

0 . 


2101101111111 


50 . 


128 . 

152 

• 

164 . 

176 . 



520 . 


600 . 







22 


22 

22 


22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 

22 


GEMPAK title card 

GEMPAK geometry option card 

Fuselage card set 1 


Fuselage card set 2 

Fuselage card set 3 

Lofting line 1 in XY plane 

Lofting line 1 in XZ plane 


Lofting line 2 in 
XY plane . 


Fuselage card 
set h 


Lofting line 2 in XZ plane 


Lofting line 3 in XY plane. 
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VJI 

CD 


CDLU.MN 


12 3^?67890123^56789012 3<>^67890123<i 367890 12 3^367e9Q123<>567690123<»567a90123^5S7d90 


0 

3 

1 

3 * 

3 . 

0 

3 

1 

128 . 

39.4 

0 

3 

1 

152 . 

49.2 

0 

3 


168 * 

53.2 

0 

3 


200 . 

45.7 

0 

3 

1 

600 . 

57.627 

1 

6 


0 . 

0 . 

0 

4 

1 

110 . 

0 . 

0 

4 

1 

123 . 

1.06 

0 

4 

1 

200 . 

17.1 

0 

4 

1 

400 . 

57.006 

0 

4 

1 

600 . 

53.632 

2 

5 


0 . 

0 . 

0 

4 

1 

3 . 

3 . 

0 

4 

1 

123 . 

39.4 

0 

4 

1 

200 . 

45.7 

0 

4 

1 

600 . 

57.627 

1 

6 


0 . 

0 . 

0 

5 

1 

3 . 

2.7 

0 

5 

1 

128 . 

8.942 

0 

5 

1 

200 . 

17.1 

0 

5 

1 

400 . 

57.006 

0 

5 

1 

600 . 

53.632 

2 

5 


0 . 

0 . 

0 

5 

1 

3 . 

1.5 

0 

5 

1 

128 . 

34 . 

0 

5 

1 

200 . 

45.7 

0 

5 

1 

600 . 

57.627 

1 

4 


0 . 

0 . 

0 

6 

1 

3 . 

2.7 

0 

6 

1 

400 . 

83.6 

0 

6 

1 

600 * 

04 . 

2 

4 


0 . 

0 . 

0 

6 

1 

3 . 

1.5 

0 

6 

1 

400 . 

10.743 


0 « 

-.375 


.40833 

0 . 


/ Lofting line 3 in XZ plane 


> Lofting line h in XY plane 


\ Lofting line k in XZ plane 


Lofting line 
XY plane 


5 in 


Fuselage card 
set 4 


> Lofting line 5 in XZ plane 


^ Lofting line 6 in XY plane 




Lofting line 6 in XZ plane 
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COLUMN 



\ 


Lofting line T in XY plane 
Lofting line T in XZ plane 


Lofting line 8 in XY plane 

Lofting line 8 in XZ plane 

Lofting line 9 in p 
XY plane 

V ^ . Fuselage card 

Lofting line 9 in 

XZ plane L 

Slope control line 1 in 

XY plane ' 

Slope control line 1 in 
XZ plane 


Slope control line 2 in 
XY plane 





o 


COLUMN 


12 3 4 5 6 7 8 

12345678901234567890123456789012345678901234567890123456759012345678901234567890 



“T 

T 



4^.614 

1 

2 

1 


600. 

46.241 

2 

6 



0. 

0. 

1 

2 

1 


3. 

3. 

1 

2 

1 


120. 

39.4 

1 

2 

1 


152. 

52. 

1 

2 



164, 

56. 

1 

2 

1 


600. 

69. 

1 

7 



0. 

0. 

1 

3 

1 


IIB. 

0.0 

1 

3 

1 

2 

128, 

1.0595 

1 

3 

1 

2 

162.5 

7, 

1 

3 

1 

2 

200. 

17.1 

1 

3 

1 

2 

400. 

57.006 

1 

3 

1 

2 

600. 

53.632 

1 2 

6 



0. 

0. 

{ 1 

3 

1 


3. 

3. 

1 

3 

1 

2 

128. 

39,4 

1 

3 

1 

2 

162.5 

47.5 

1 

3 

1 

2 

200. 

45.7 

1 

3 

1 

2 

600. 

57.627 

1 

6 



0. 

0. 

1 

4 

1 


3. 

1.725 

1 

4 

1 


123. 

5.433 

' 1 

4 

1 


200, 

17.1 

1 1 

4 

1 


400. 

57.006 

i 1 

4 

1 


600. 

53,632 

t 2 

5 



0. 

0. 

1 1 

4 

1 


3. 

3. 

1 1 

4 

1 


120. 

39.4 

i 1 

4 

1 


200. 

45.7 

1 

4 

1 


600. 

57.627 

1 

4 


2 

0. 

0. 

1 1 

5 

1 

2 

3. 

2.7 

1 -L 

5 


2 

400. 



► 525 


•02982 


Slope control 
XZ plane 


line 2 in 


Slope control line 3 in 
XY plane 


Slope control line 
in XZ plane 


Slope control line 
XY plane 


Slope control line h in 
XZ plane 

Slope control line 5 in 
' XY plane 


Fuselage card 
set k 
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COLUHN 123<r5678 

123<t56789Q1234567690123^567890I23A567890123<>56789Q123<f 56789012 3^56789012 3^567890 


1 

"T 

T 

T" 


'68 .TO 




2 

9 


2 

0. 

0. 



* 

1 

5 

1 

2 

3* 

1.5 




1 

5 

1 

2 

900. 

31.203 




1 

5 

1 

2 

600. 

39.269 




1 

9 



0. 

0. 



* 

1 

6 

a 


3. 

5.625 




1 

6 

1 


900. 

86.525 




1 

6 

1 


600. 

89. 



J 

2 

3 



0. 

0. 




1 

6 

1 


3. 

-3. 




1 

6 

1 


600. 

10.9 




1 

6 



0. 

0. 



1 

7 

1 


3. 

0. 




1 

7 

1 


200. 

38.029 


1 

.19703 

I 

7 



900. 

69.982 

X 

0. 


1 

7 

1 


520. 

65.837 



' 

1 

7 

1 


600. 

60.323 



i 

2 

3 



0. 

0. 




1 

7 

1 


3. 

-3. 



1 

1 

7 

1 


600. 

10.9 



J, 

1 

6 



0. 

0. 




1 

8 

1 


3. 

0. 




1 

8 

1 


200. 

39.52 


1 

.17523 

1 

8 



900. 

55.803 

1 

0. 

1 

1 

8 

1 


520. 

59.59 



1 

1 

8 

1 


600. 

59.672 



1 

2 

9 



0. 

0. 



t| 

1 

8 

1 


3. 

-3. 




1 

8 

1 


520. 

-22. 




1 

8 

1 


600* 

9.1 



I 


ShING CRW* 152*95# 8W* 100.# SWEOB« 52*3# TPW- .363# NYU* <r# NXU- 6# 
TWRO« *175# XWOl* .9999# Xi<D2» 0## XWl- <»71.7# Z8R* 59.# IPRNT* 3# 
IM€«G£— 3#N0£aOG»0# IRAOE* 1/ RAD£« .75/ 

SEND OF PIN INPUT (SAHPlE CASE 1) 


Slope control line 5 in 
XZ plane 

Slope control line 6 in 
XY plane 

Slope control line 6 in 
XZ plane 

Slope control line T 
in XY plane 


Fuselage card 
set 


y Slope control line 7 in 
XZ plane 

Slope control line 8 in 
XY plane 

1 Slope control line 8 in 
> XZ plane 


^Fin input (ICOMP = 5) 


O' 
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fV) 


COLUMN 12345670 

123456789012345678901234567890123456789012345678901234567090123456789012345678^0 

■ iWlWG — CRV.‘-"19Fr9, 8W- 23275, SWEDg- 5'4;b, 115^^.3750, ^JYU- 4, NXU« (y, 

TWRO- .06^ XWOl* .5i XWD2« TCD- .03, XWl- 360.25, ZBR* 45., 

XPOTAT- 597., YROTAT- 64.3, ZROTAT- 45., THETA- 60., ALPHA- -5.> 

BETA- 10., IPRNT- 3, IMERGE—3, IRADE- 1, RADE- .75 , 

SEND OF HORIZONTAL TAIL INPUT (SAMPLE CASE 2) 

Swing CRW- 404.00# 8W 335.44, SwtOB- 59.39, TRW .3058^ NYU- 4, NXU- 9, 

ICHRO- 2, TWRD- .06, TCD- .03, Xwl- 237.70, ZBR- -35.217, THETA- 30., 

ALPHA- -1., IPRNT- 3, IMERGE- 3, IRAOE- 1, RADE- .75, XROTAT- 600. , 

IjENO OF WING INPUT (SAMPLE CASE 1) 


Horizontal tail input (ICOMP = k) 


Wing input (ICOMP =2) 
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Sample Case 1 Output 


QEf,P4K - RAPID AIRCRAFT GEOMETRY GENERATION FOR ENGINEERING DESIGN 


CASE TITLE - GEMPAK SAMPLE CASE 1 (FUSELAGE^ WlNG^ HORIZONTAL TAIL^ FIN) 
GEOMETRY OPTIONS CHOSEN 
FUSELAGE 
FIN 

HORIZ.TAIL 
WING 

♦ ENTER FUS2^ 

*♦♦♦♦♦ ♦♦♦♦♦♦♦ ♦♦♦♦♦♦♦♦♦♦ 



fuselage (COMPLETE LOFTING, INC(l)-O) 
iCOEFFS FOR PROJECTION OF LOFTING CURVE NO. 
5T line A» 0. B- 0. 

COEFFS FCR PROJECTION OF LOFTING CURVE NO. 
ST LINE A« 0. 3- 0. 

COEFFS FOR PROJECTION OF LOFTING CURVE NO. 


1 BETWEEN X- 

C- 0. 

1 BETWEEN X- 

C« 0. 

1 BETWEEN 


0.0000 AND X« 600.0000 ON THE X-Y PLANE 

D- 0, E- -.60000E+03 F» 

0.0000 AND X- 3.0000 ON THE X-Z PLANE 





.annnni.*Qi 


(Longitudinal curve segment end points 
and coefficients for loftine curves 1 

LW ^ 


to 9) 


DFTING CURVE NO. 

8 - 0 . 

tOEFFS FCR PROJECTION OF LOFTING CURVE NO. 


BT LINE 


0 . 


tOEFFS FOR PROJECTION OF LOFTING CURVE NO. 
PT LINE A» 0. B» 0. 

COEFFS FCR PROJECTION OF LOFTING CURVE NC. 
feT LINE A- 0. 3- 0. 


■Tbetween X- 

C« 0. 

9 BETWEEN X- 

C- 0. 

9 BETWEEN X- 

C- 0. 

9 BETWEEN X- 

C- 0. 

9 BETWEEN X- 

C- 0. 


D- -.<i0000t+01 t- -. 51700E + 03 

520.0000 AND X« 600.0000 ON THE X-Z PLANE 

D- .17000E+0? E- -.bOOOOE+02 F» -#9A000E*0A 

0.0000 AND X» 600.0000 ON. THE X-Y PLANE 

D- 0. E- -.60000E+03 F» 0. 

0.0000 AND X- 3.0000 ON THE X-Z PLANE 

D- -.30000E+01 E* -.30000E+01 F- 0. 

3.00C0 AND X» 520.0000 ON THE X-Z PLANE 

D- -.19000E+02 E- -.5170CE+03 F« 

520.0000 AND X« 600.0COO ON THE X-Z PLANE 

0- .311C0E+02 E« -.80000E+02 F- -.X7932E+05 


CTv 

LO 
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ST LINE A* 0, B- 0, 

CDEFFS FCR PR0JECTI3N OF SLOPE CONT'-^GL LINE NO, 
ST LINE A- 0, B* 0, 

COEFFS FOR PROJECTION OF SLOPE CONTROL LINE NO, 
ST LINE A- 0, 8« G, 

COEFFS FOR PROJECTION OF SLOPE CTNTRQL LINE NO. 
‘S. LINE A- 0. 3- 0, 

PROJECTION OF SLOPE CONJNi^ni, [Ttiir 


C« 0, 0» 0, E« -,20000k+03 F« 0. 

INE NO, 1 BETWEEN X- 200.0000 AND X- 600.0000 ON THE X-Y PLANE 

C» 0. D- , 2 00 00 E 4-02 E» *,AOOOC£ + 0 3 F« -•‘»0000t+0^ 

INE NO, I BETWEEN X- 0,0000 AND X- 3.0000 JN THE X-Z PLANE 

C- 0. D- ,30CC0E+0l e* -.30000E401 F» 0, 

INE NO. 1 BETWEEN X<" 3,0000 AND X- L2o,CQ00 ON THE X-Z PLANE 

C» Q. -,12600E4Q ^3 F- .2658 0E + 03 

(Longitudinal curve segment end points and coefficients 
for slope control lines 1 to 8) 


0 » 0 , 

200.0000 AND X- 
D- ,20000E4‘02 
0,0000 AND X- 
D- ,30CC0E+0l 
3,0000 AND X- 


COEFFS TTT!r- 
ST LINE 
COEFFS FOR 
ST LINE 
COEFFS FCR 
ST LINE 
COEFFS FOR 
ST LINE 
COEFFS FOR 
OEGEN SEG 
, COEFFS FOR 
DEGEN SEG 
COEFFS FOR 
mOBH SEG 
COEFFS FOR 
S^EN SEC 
for 


A* 0, 

PROJECTION OF 

A- 0. 

PROJECTION OF 

A« 0, 

PROJECTION OF 

A- 0. 

CROSS-SECTION 

A- 0, 

CROSS-SECTION 

A« 0. 

CROSS-SECTION 

A« 0. 

CROSS-SECTION 

A» 0, 

CROSS-SECTION 

0« — 


SLOPE CONTROL 

6 - 0 , 

SLOPE CONTROL 

B« 0. 

SLOPE CONTROL 

0. 

SLOPE CONTROL 

B* 0. 

SEGMENT NO, 

B- 0. 

SEGMENT NO, 

d> 0 • 

SEGMENT NO, 

B» 0, 

SEGMENT NO. 

B» 0. 

SEGMENT _JiO^ 


LINE NO. 
LINE NO. 


— 0-Bb I WbcN X> 

C- 0. 

8 BETWEtN X- 

C- 0, 

8 BETWEEN X- 


^00,0000 AND X«- 
0- -,L2680E401 

520,0000 AND X» 

D- ,51320E+01 
0,0000 AND X» 


E- -.izoouTTin 

600.0000 ON THE X-Y PLANE’""'" 

E- -.BOOOOF+02 F» • 169^6E40T' 
3,000'J ON THE X-Z PLANE 



C* 

0, 

D* 

-,300006+01 

E* 

-. 30000E+01 

F* 0, 

SG- 

LINE 

NO. 8 

BETWEEN X* 

3. 

0000 AND X« 

520, 

0000 ON THE X-Z 

PLANE 


LINE 

C* 

0, 

D* 

-.19000E+02 

E* 

-,51700E+03 

F* 1A9A0E+0A 

SG* 

NO. 8 

BETWEEN X- 

520. 

0000 AND X* 

600. 

0000 GN THE X-Z 

PLANE 


1 AT 

C- 

X* 

0, 

0,0000 

D* 

♦3L1 OOE+02 

E* 

-.8000CC+02 

F- -.179326+05 

SG* 

2 AT 

C* 

X* 

0, 

0,0000 

D» 

C. 

E- 

0, 

F* .lOOOOE+01 

SG* 

3 AT 

C- 

X- 

0, 

0.0000 

C* 

0, 

E* 

0, 

F« ,10000E+01 

SG* 

A AT 

c* 

X* 

0 , 

D* 

0» 

E- 

0, 

F* .lOOOOE+01 

SG* 

_ 







— -JUU)ppE + 01 

SG* 


(Cross-sectional curve segment end points and coefficients 
for segments 1 to 8 from X = 0.0 to X = 600.0) 


ST L>k^ 

COEFFS TTTP LRUSS-SECTTcN SEGMENT NO, 5 AT X« 
ST LINE A- 0. B- 0. 

COEFFS FOR CROSS-SECTION SEGMENT NO. 6 AT X* 
ST LINE A- 0. 8- 0. 

COEFFS FOR CROSS-SECTION SEGMENT NO, 7 AT X- 
ELLIPSE A- .IQQOQE+QL B« ,3A250E-0^ 

CDEFFS FOR C ROS S-S ECT ICN SEGMENT NO. 8 AT X- 
ELLIPSE A« .10000E401 B- 0. 


X» 600.0000 

C« 0. 

X« 600.0000 

C« 0. 

X* 600,0000 

C- 0. 

X* 60O.C00O 
^ C- .69167H403 
X« 600.0000 

C- ,A3959E+0<» 


D- -.2215 2E-06 E« 33 3 06E-06 

D» -.55379E-07 £• -♦632666-07 F« •776e't£-05 5G 

0- -,^6727c+02 E- -.303686+02 F« .^25616+0^ SG 

D» -,5669^E-06 E« 33IA5E-C6 F" .53A6IE-0A SG« 

D» -,168CCE+03 E- -.IseiSE+O? F- •75472E+05 SG* 

D- 0. E* -,87961£ + 05 F- ,^36<»2£+06 SG* - 
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•30000000E+01 YMAX- 
Y 

•26666667E-06 

•10^95583E+01 

•27000005E+01 

.lOOOOOllE-06 

•113686e^E-12 


• 310507<»3E*01 2MAX- 54509858E + 00 NX- 


21102 YMAX 


►30000000E+OX 

.30000000E+01 

»28132180E^'01 

,1^999997E+0l 

.30000000E+01 

»30000000E+OI 

.30000000E+01 


•200C0000S-06 
•3O0CO0D0r-06 
. 1978687<*E + 01 
•310507^3E+01 
.92612393C-07 


•30000000E+01 
.30000000E+01 
.229010665+01 
-.t>^^098!38t + 00 
-.300000006+01 
^rinr>nnno.j;_^AJ. 


•23333333E-06 
•90000000E-06 
. 270000005+01 
.19962138E+01 
•4690622BE-07 


(Generated cross-section points) 


.300000005+01 3 

•30000000E+01 6 

•15000000E+01 9 

-.230705^96+01 12 

-.300000005+01 15 

-•30000000E+01 18 

- 21 


.^00000005+03 

Y 

0. 

• 52<i750e5E+02 

.57005922E+02 
.83600000E+02 
.810000005+02 
.60COOOOOE+02 
.2<»939066E + 02 
.52000000E+03 

Y 

0. 

.50^507^16+02 

• 549ai61<tE + 02 
.836^00006+02 
.828000006+02 
.600000006+02 
.25<i209<i9E + 02 
•600000005+03 

Y 

0. 

.491011985+02 

.53631959E+02 

•840000005+02 

•840000005+02 

•600000005+02 

.240098685+02 





.199863836+01 

14 

•542ub9046+02 





.428816561+02 

-.997213836+01 

17 

.322811506+02 

-.119 32934Trtxr'~ 

- 

t iTirrTfvT^ 

19 

.107787965+02 

-.134951316+02 

20 

0. 

-.139148945+02 

21 

.640171135+02 ZMAX 

• .87218695E+01 

NX- 10 





Z 

N 

Y 

Z 

N 

Y 

Z 

N 

63036697E+02 

1 

.39906000C+02 

.630366975+02 

2 

.467X49046+02 

.612487075+02 

3 

571336785+02 

4 

•570060006+02 

•51663500E+02 

5 

.570060006+02 

.516635005+02 

6 

51663500E+02 

7 

.570059225+02 

.51663500E+C2 

8 

.570060005+02 

.516635005+02 

9 

107^30002+02 

10 

.540171136+02 

.872156956+01 

11 

.82962584C+02 

.695344035+01 

12 

62433336E+01 

13 

.72511497E+02 

.489035556+01 

14 

.65C01253E+02 

.804846965+00 

15 

60715667E+01 

16 

.49487559C+02 

-.121895036+02 

17 

.373092566+02 

-.148600105+02 

18 

104535535+02 

19 

.124670336+02 

-.170217466+02 

20 

0. 

-.175899425+02 

21 

• .840068456+02 ZMAX 

• .100267436+02 

NX- 11 





Z 

N 

Y 

Z 

N 

Y 

Z 

N 

66614679E+02 

1 

.37881600E+02 

.66614679E+02 

2 

,446904476+02 

.64826816C+02 

3 

607118515+02 

4 

•549816CCE+02 

♦552416005+02 

5 

.5498X6006+02 

.552416005+02 

6 

552416005+02 

7 

•54981615E+02 

.55241600t+02 

8 

.549616005+02 

.552416005+02 

9 

10837200E+02 

10 

.840C6845E+02 

•100287466+02 

11 

.83565034E+02 

.932137615+01 

12 

903735345+01 

13 

.73203312E+02 

.702376556+01 

14 

.652093906+02 

.135376105+01 

15 

700000005+01 

16 

.501430146+02 

-.14581072E+02 

17 

.37958623E+02 

-.102284355+02 

18 

204337246+02 

19 

•127126895+02 

-•2123725et+02 

20 

0. 

-.220000005+02 

21 

- .040000005+02 ZMAX 

■ .103999996+02 

NX- 12 





Z 

N 

Y 

1 

N 

Y 

Z 

N 

690000005+02 

1 

•36532000E+02 

.690000006+02 

2 

.433400755+02 

.672122225+02 

3 

630973005+02 

4 

.53632000E+02 

.57627000E+02 

5 

.536320006+02 

.576270005+02 

6 

,576270005+02 

7 

.53631959C+02 

.576270005+02 

8 

.536320006+02 

.576270005+02 

9 

,109000005+02 

10 

.839999976+02 

•10900000E+02 

11 

.83999997E+02 

.108999995+02 

12 

,108999995+02 

13 

•75981405E+02 

.108305645+02 

14 

.679645606+02 

•106632015+02 

15 

,100000005+02 

16 

•48018045E+02 

.946264536+01 

17 

.360X44405+02 

.928134245+01 

18 

918283845+01 

19 

.120049345+02 

.914141925+01 

20 

0. 

.910000005+01 

21 


ON 

U1 


APPENDIX 



CT\ 

ON 



OELVOLUNE 


0. .707107E + 00 .<i2^264E-06 

• 6 .707107t + 00 •7071076-07 

0. •7071076+00 .7071076-07 

-.^019^^6-06 .7071076+00 .7071076-07 

0. .7071076+00 .2121326-06 

.12<»8546+00 .7015 7<»6 + 00 . 2 2<»<»01 6 +01 

,^4886Q6»Qil - ^Aiq£vA2£ + QQ ♦22<i9236»01 

(Element characteristics) 


• <>105366-20 

0 . 

-.5368556-20 

0 . 

.9801936-01 

•7920556400 




756+00 
.3^01676+00 
.1829796+00 
.5325^96+00 
.0306076+00 
.5560166+00 
.2512^66+00 
•150359E+00 
.5^.37^56-01 
• 527<»97E-01 


-• 5121 !?<♦ c + uu 
-.9<.02156 + 00 
-.9829^76+00 
-.89636o6+00 
-. 5566576+00 
-.8297296+00 
-.9676126+00 
-.9631^76+00 
-.997933t+C0 
-.9979626+00 


• 1753<»0£+03 
.1103996+09 
.1099116+09 
.1100176+09 
.1972976+09 
.1510686+09 
.1512716+09 
.1513656+09 
.1513876+09 


.1563306405 

.9037996+05 

.5716296+05 

.9513126+05 

•1659616+05 

.7193926+09 

.1559296+09 

.5027016+03 


DELAREA 


OELVOLUnE 


.2536876+00 

.5812186+00 

.7701296+00 

.5537256+00 

.2720296-03 

.9992996+00 

.2720216-03 

.9339806+00 

.9793606+00 

.8580756+00 

.3901636+00 

•117372E+C0 

.3913096+00 

.560392E+00 

.3339296+00 

.1908086+00 

.8800596-01 

.3199266-01 

•3035376-01 


.9995566+00 

.9669226+00 

.8136196+00 

.6378666+00 

.8325566+00 

-.9995566+00 

•666286E+00 

.9995566+00 

.5999296+00 

.2021136+00 

-.5121596+00 

-.9902156+00 

-.9925696+00 

-.9375166+00 

-.8187996+00 

-.9103896+00 

-.9901036+00 

-.9375336+00 

-.9357206+00 

-•9329876+00 


.2977876+09 

.5633936+03 

•5663896+03 

.5682996+03 

.3200386-09 

.1087066-02 

.7689956-05 

.1087066-02 

•9397966+09 

.3301966+02 

•3299916+02 

.3339796+02 

.7098906+03 

.6831196+03 

•6936186+03 

.9595996+03 

•1029156+09 

.1097116+09 

•1056996+09 

.1059726+09 


0 . 

•580895E+09 

•1593796+05 

.2277956+05 

.9623666-03 

.1592356-09 

.2089796-03 

.1592306-09 

.2519276+06 

.2719756+09 

.2372926+09 

.9982016+03 

.6579206+09 

.1697006+05 

.2281606+05 

.1770586+05 

•6590016+09 

.2892966+09 

•8265906+03 

•1987296+03 


APPENDIX 



THE GOODIES ARE. 


SURFACE AREA* . 1 736<»5^r8£ + 06 

VOLUME* .3717A177E+07 

THc CENTER-OF-VOLUM6 COORDINATES ( XCG, YCG# ZCG ) 
FINENESS RATIO* . 50554^65E*01 


*^C094009E+03 


.2357A510E+O2 


♦♦♦ CROSS-SECTIONAL INFORMATION 


LONGITUDINAL SEGMENT INFORMATION ♦♦♦♦♦♦♦♦♦♦♦ 


SURFACE AREAS 


CcNTERS-OF-VOLUME 


•30000000E+01 

.50000000E+02 

.12800000E+03 

.15200000E+03 

.16<r00000E+03 

.17600000E+03 

•2O0COCOOE+03 

•30000000E403 

.^OOOOOOCE+03 

.52000000E+03 

•60000000E+03 

♦EXIT F U S 2 ♦ 


0 . 

.2772027^c+02 

•36550566E+03 

.1729^58^5 + 0<r 
•23736752E+0^ 
.27502980H+0<» 
• 3108^373E + 0<» 
.37902^22E+C^ 
.70027755E+0^ 
•1032^509£+05 
.11063011E+05 
.771759566+04 


,397203376+02 

.277202796+02 

.20000000E+01 

,21819592E+09 

.78180152E+09 

• 30669169E+'02 

925395716+04 

.75179066E+05 

.93673199E+02 

93660536E+04 

.98855875E+C5 

.19023339E+03 

299578806+04 

.307075326+05 

.15805185E+03 

263717986+09 

.351515206+05 

.170031036+03 

556115176+09 

.82913112E+05 

.18806197E+03 

28357966E+05 

.53665660E+06 

.250989686+03 

367682996+05 

.865352606+06 

•35109977E+03 

99391959E+05 

.128323976+07 

.960305586+03 

326225086+05 

.751625556+06 

.559807826+03 


APPENDIX 


W I N G E X ♦ 


(Fin generation) 


1/ 

.lE-59, 

.1E>03/ 

•15295E+03# 

0 . 0 . 

•363E+00/ 

•523E^02, 

-•lOOlE^O^f 

0.0« 

0.0» 

0«0» 

if 

•9999E400^ 

e.Of 

6 # 

If 

-lOOlt 

-lOOlf 

1> 

.75E+00> 
.175E+00, . 
.lE-59, .IE- 
.lE-59, .IE 
.lE-59, .IE 
0.0, .lE-59 
.lE-59, .It 
1 # 

0 * 0 , 

0 . 0 , 

.lE-59, .IE 
.lE-59, .IE 
.16-59, .16 
•lE-59, .IE 
0 . 0 , 

.^717E+03, 

O.Of 

.5<.6*02, 

0 . 0 * 


XROTAT 

• 

-.10016^04, 

YPOTAT 

■ 

-.lOOlE+04, 

zkotat 

■ 

-.10016,04, 

IPRNT 

■ 

3, 

IKERGb 

m 

-3, 

N068UG 

m 

0, 

ITEETH 

m 

0, 

ICON 

m 

0, 

nphx 

m 

0, 

iflap 

m 

0, 

XCQR 

m 

.16-59, 

XCOT 

■ 

.16-59, 

OELFU 

• 

.16-59, 

OELFL 

■ 

.16-59, 

ZCOR 

• 

.lE-59, 

ZCOT 

m 

.16-59, 

R6FLW 

SEND 

m 

0.0, 


lE-59, .lE-59, .lc-59, .16-59, .lE-59, .16-59, .16-59, 
-59, .lE-59, .lE-59, .16-59, .16-59, .lE-59, 

-59, .16-59, .16-59, .16-59, .16-59, .16-59, .16-59, 

-59, .16-59, .16-59, .16-59, .lE-59, .16-59, 

.16-59, .16-59, .16-59, .16-59, .16-59, .lE-59, .16-59, 
-59, .16-59, .16-59, .16-59, .16-59, 


•59, .lE-59, .lE-59, .lE-59, .lE-59, .lE-59, *lE-59, 

-59, .lE-59, .16-59, .lE-59, .lE-59, .16-59, 

-59, .16-59, .lE-59, .16-59, ,16-59, .16-59, .16-59, 

-59, .16-59, .16-59, •l£-59, .16-59, .lt-59. 


.16-59, .16-59, .16-59, .16-59, .lE-59, 
.lE-59, .lE-59, .lE-59, .lE-59, .16-59, 
.16-59, .16-59, .16-59, .16-59, .16-59, 

.16-59, .it-59, .16-59, .16-59, .16-59, 
.16-59, .16-59, .lE-59, .16-59, .16-59, 


APPENDIX 


INPUT FOR GEOMETRY GENERATION OF 


FIN 


N A 

INPUT ■! 


|ICHRD «1 
IRADE ■! 


lOIHE D 
TWISTX- 0. 


ELIST WING INPU T 


AUTOMATIC GEOMETRY 
GENERATION CHOSEN 


0W - •lOOOOE+03 
CRW ■ •15295E+03 

BIBW- 0. D 

TRW • .36300E+00 


SWEOB- ,523006+02 
SWELG- .523C0E+02 
SWl « 0. 

ANGR *0. D 
ANGT » 0, 0 


SLAB-SIDED AIRFOIL CHOSEN XWDl* ,99990E+00 NYU- A 
¥¥**¥¥*¥¥¥¥¥¥*¥¥¥¥*¥¥¥¥¥¥ XWD2- 0. 0 NXU- 6 


^¥¥*¥¥****¥¥¥ ¥¥¥***¥**¥**¥*¥ 

LEADING-EDGE RADIUS CONSTANT 

FOR ENTIRE SURFACE RAOE- .75000E+00 

¥¥*¥¥*¥¥*¥*¥¥¥¥¥¥*¥¥¥¥¥¥¥¥¥* 


(The letter "D” following some of 
the input values indicates that 
the default was chosen) 


^¥*¥¥¥*******W*¥¥¥^¥*¥*¥ 

CONSTANT THICKNESS RATIO TWRD- ,i7500E+00 

¥¥¥*¥¥¥¥¥¥¥¥¥¥¥**¥¥¥¥¥¥¥ 


CONSTANT MEAN CAMBER LINE THICKNESS RATIO TCD- 0, D 

¥¥¥*** ¥¥¥*¥¥*¥**¥ 


¥¥¥¥¥¥¥¥¥¥¥*¥¥****¥¥*¥¥¥¥¥¥*¥¥¥¥¥*¥¥¥* 

LEADING-EDGE DIHEDRAL WILL BE COMPUTED AWR- 0. D 

¥¥¥¥**¥**¥*******¥¥*¥¥*¥¥*¥ii4^**¥¥*¥*** AWT- 0, D 

D 

^¥*¥***¥**¥¥**¥¥¥*** XWl- .ATITOE+OB 

TRANSLATION IN X,Y>2 Y3R- 0. D 

¥¥¥¥¥*¥¥¥¥*¥¥¥**¥¥¥* Z3R- .59000E+02 

ROTATION IN ROLL»PITCH,YAW NONE 0 


O 


^ IPRNT -3 
I IMERGE--3 

¥¥*¥*¥*¥**************^ ¥*¥¥¥¥ 

THIS COMPONENT WILL BE MERGED 
I WITH THE FUSELAGE 

¥¥¥*¥*¥*¥¥¥¥¥¥¥¥*¥**¥**¥¥¥¥*¥ 

' ITEETH-0 0 
ICON -0 0 

REFLW - 0. 0 

E NO namelist wing INPU T 


NDEBUG-O 


END OF INPUT FOR GEOMETRY GENERATION OF 


FIN 


APPENDIX 


--3 

O 



3AS1C 

GENERATED 

GEOMETRY 



PT 

XU 

YU 

zu 

CHORD 

1 





1 

0.0000 

0.0000 

0.0000 


2 

.0513 

0.0000 

.2726 


3 

.1932 

0.0000 

.5079 



.A205 

0.0000 

.6738 


5 

.6860 

0.0000 

.7A7A 


6 

38.7^97 

0.0000 

3.906A 


7 

76.8113 

0.0000 

7.0653 


8 

11^.3730 

0.0000 

10.22A2 


9 

152.93^7 

0.0000 

13.3331 


10 

152.9500 

0.0000 

.0000 

CHORD 

2 





1 

^3.1203 

33.3333 

0.0000 


2 

^3.1797 

33.3333 

.2728 


3 

A3. 3260 

33.3333 

.5083 



A3.5A9A 

33.3333 

.67A1 


5 

A3. 8172 

33.3333 

• 7A75 


6 

73.7603 

33.3333 

3.1960 


7 

103.7035 

33.3333 

5.6AA5 


8 

133.6A67 

33.3333 

e.0930 


9 

163.5899 * 

33.3333 

10.5A1A 


10 

163.6019 

33.3333 

.0000 

CHORD 

3 





1 

86.2566 

66.6667 

O.COOO 


2 

86.3031 

66.6667 

. 2732 


3 

86.A556 

66.6667 

. 5088 



86.6768 

66.6667 

.67A6 


5 

85.9A71 

66.6667 

.7A76 


6 

100.7715 

66,6667 

2.A857 


7 

130.5960 

66.6667 

A. 2237 


a 

152.A205 

66.6667 

5.9617 


9 

17A.2A50 

66.6667 

7.6998 


10 

17A.2538 

66.6667 

.0000 

CHORD 






1 

129.38A9 

100.0000 

0.0000 


2 

129. A367 

100.0000 

.27A0 


3 

129.5851 

100.0000 

.5101 



129.8095 

100.0000 

.6757 


5 

130.0786 

100.0000 

,7A79 


6 

1A3.70A2 

100. GOOD 

1.775A 

1 

7 

157.A895 

100.0000 

2.8030 

i 

8 

171.19A8 

100.0000 

3.8305 

1 

9 

18A.9002 

100.0000 

A. 8561 

I 

10 

18A.9057 

100.0000 

.0000 


PT 

XL 

.YL 

ZL 

1 

0.0000 

0.0000 

0.0000 

2 

.0513 

0.0000 

-.2726 

3 

.1982 

0.0000 

-.5079 

A 

• A205 

0.0000 

-.6736 

5 

.6800 

0.0000 

-.7A7A 

6 

38.7A97 

0.0000 

-3.906A 

7 

76.8113 

0.0000 

-7.0653 

8 

ilA.8730 

0.0000 

-10.22A2 

9 

152.93A7 

o.oooc 

-13.3831 

10 

152.9500 

0.0000 

-.0000 

1 

A3. 1203 

33.3333 

0.0000 

2 

A3. 1797 

33.3333 

-.2728 

3 

A3. 3260 

33.3333 

-.5083 

A 

A3.5A9A 

33.3333 

-.67A1 

5 

A3. 8172 

33.3333 

-,7A75 

6 

73.7603 

33.333 3 

-3.1960 

7 

103,7035 

33.3333 

-5.6AA5 

8 

133.6A67 

33.3333 

-3.0930 

9 

163.5899 

33.3333 

-10.5A1A 

10 

163.6019 

33.3333 

-.0000 

1 

86.2566 

66.6667 

0.0000 

2 

86.3081 

66.6667 

-.2732 

3 

06.A556 

66.6667 

-.5088 

A 

86.6788 

66.6667 

-.67A6 

5 

86.9A71 

66.6667 

-.7A76 

6 

108.7715 

66.6667 

-2.A857 

7 

130.5960 

66.6667 

-9.2237 

8 

152.A205 

66.6667 

-5.9617 

9 

17A.2A50 

66.6667 

-7.6998 

10 

17A.2538 

66.6667 

-.0000 

1 

129.30A9 

100.0000 

0.0000 

2 

129.A367 

100.0000 

-.27A0 

3 

129.5851 

100.0000 

-.5101 

A 

129.8095 

100.0000 

-.6757 

5 

130.0788 

100.0000 

-.7A79 

6 

1A3.78A2 

100.0000 

-1.775A 

7 

157.A895 

100.0000 

-2.8030 

8 

171.19A8 

100.0000 

-3.8305 

9 

18A.9002 

100.0000 

-A. 8501 

10 

18A.9057 

100.0000 

-.0000 


(Fin geometry before 

rotation and translation) 


CALCULATED PARAMETERS 

CRW ■ 152. 9i0 AW • .000 
CT • 55.521 ACT • 0.000 
BW • 200.000 XBARW ■ 0.000 
B1 ■ 0.000 SWO • 17.722 


APPENDIX C 



i 



FIN 

GENERATcO GEOMETRY 









PT 

XU 

YU 

ZU PT 

XL 

YL 

ZL 




'ICHORO 

1 









(Final generated geometry) 

t 


1 

^71.7000 

0.0000 

59.0000 1 

971.7000 

0.0000 

59.0000 






2 

^71.7513 

-.2726 

59.0000 2 

971,7513 

.2726 

59.C000 






3 

^71.3982 

-.5079 

59.0000 3 

971,8982 

.5079 

59,0000 






<» 

<»72.i205 

-.6733 

59,0000 9 

972.1205 

.6736 

59.0000 






5 

A72.3350 

-.7979 

59,0000 5 

972.3080 

.7979 

59.0000 






6 

510.^^97 

-3.9069 

59,0000 6 

510.9997 

3.9069 

59.0C00 






7 

59o,5113 

-7.0653 

59.0000 7 

598.5113 

7.0653 

59.0000 






6 

566.5730 

-10.2292 

59.0000 a 

506.5730 

10.2292 

59.0000 






9 

62^.63^7 

-13.3631 

59.0000 9 

629.6397 

13,3031 

59.0000 









RA ^ a 



















CHORD 

2 













1 

51^.8283 

0.0000 

LEADING EDGE FINE DETAIL HAS 

BEEN TAKEN 

FROM CHORD 

NO. 3 





2 

51^.8797 

-.2720 

XLE 

ZLEU 

ZLEL 


XLE 

ZLEU 

ZLEL 



3 

515.0260 

-.5083 

1 o.ooooocoo 

0.00000000 

0.00000000 2 

.00100000 

.00952321 

-.00962321 




515.2<i9^ 

-.6791 

3 .00207770 

.00593618 

-.00593318 9 

.00323990 

.00661788 

-.00601780 



5 

515.5172 

-.7975 

5 .009A9137 

.00799575 

-.00799575 6 

.00509072 

.00812595 

-.00812595 



6 

5^5.<»603 

-3. 1960 

7 .00729503 

.00396186 

-.00896186 8 

.00006295 

.00676962 

-.00876962 



7 

575.^035 

-5.6995 

9 .01055180 

.00922090 

-.CC922090 10 

.01237255 

•00970238 

-.00970230 



8 

605.3967 

-3.0930 

11 .01933992 

.01021561 

-.01021561 12 

.01699993 

.01076215 

-.01076215 

1 


9 

635.2399 

-10.5919 

13 .01872995 

.01139350 

-.01139350 19 

.02118627 

.01196119 

-.01196119 

I 


10 

635.3019 

0.0000 

15 .02363920 

.01261695 

-.01261695 16 

.02666809 

.01331068 

-.01331068 

i CHORD 

3 




17 .02976396 

.01909992 

-.01909992 16 

.03307900 

.01902000 

-.01982000 

1 


1 

557.9566 

0.0000 

19 .03665206 

.01563698 

-.01563698 20 

,09050296 

.01699952 

-.01699952 

|l 


2 

558.0081 

-.2732 

21 .09965339 

,01739332 

-.01739302 22 

.09912666 

.01633396 

-.01833396 



3 

558.1556 

-.5083 

23 .05399706 

.01931179 

-.01931179 29 

.05919907 

.02032628 

-.02032628 



<1 

556.3768 

-.6796 

25 .06979<t96 

.02137326 

-.02137326 26 

.07078096 

.02299777 

-.02299777 



5 

558.6971 

-.7976 

27 .07728596 

.02359329 

-.02359329 28 

.08929797 

.02965118 

-.02965118 



6 

580,9715 

-2.9857 

29 .09105936 

.02576081 

-.02576001 30 

.09999909 

.02605858 

-.02685858 



7 

602.2960 

-9.2237 









8 

629.1205 

-5.9617 

♦ EXIT WING 

E X • 








9 

695.9950 

-7.6998 









10 

695.9536 

0.0003 

120.6667 10 

695.9538 

0.0000 

120.6667 




CHORD 

U 













1 

601.0099 

0.0000 

159.0000 1 

601.0699 

0.0000 

159.0000 






2 

601.1367 

-.2790 

159.0000 2 

601.1367 

.2790 

159.0000 






3 

601.2851 

-.5101 

159,0000 3 

601.2851 

.5101 

159.0000 







601.5095 

-.6757 . 

159.C000 9 

601.5095 

.6757 

159,0000 






5 

601.7708 

-.7979 

159.0000 5 

601.7788 

.7979 

159.0000 






6 

615.9892 

-1.7759 

159.0000 6 

615.9892 

1.7759 

159.0000 






7 

629.1895 

-2.8030 

159.0000 7 

629.1895 

2.8030 

159.0000 






8 

692,0998 

-3.8305 

159.0000 8 

692.8998 

3.8305 

159.0000 






9 

656.6002 

-9.8581 

159.0000 9 

656.6002 

9.8531 

159.0000 






10 

656.6057 

0.0000 

159.0000 10 

656.6057 

0.0000 

159.0000 





APPENDIX C 


♦ 1 N T 

(R WINGEX* 

SWING 

IHPUT 

■ 1# 

AW 

• .lE-59^ 

ARW 

■ tlE^Olf 

BW 

• .2325£+03> 

CRW 

* .1969E+03# 

01BW 

• 0.0» 

TRW 

■ •375c^OO/ 

SWEOB 

■ .5<.5£^02, 

SWELG 

• -.lOOlE + O^t, 

SWl 

• 0.0> 

ANGR 

■ O.Of 

angt 

■ O.Of 

ICHRO 

■ l> 

XWDI 

■ •5E400» 

XWD2 

• 0.0» 

NYU 

• 

NXU 

■ tf 

nspace 

■ 

NPCU 

■ -1001» 

NPCL 

• -lOOi# 

IRADE 

• 1 f 

KAOE 

• . 7554^00, 


TWRD 

- .6E-01# 

.lE-59, 

.lE-59, .lE-59, 


.lE-59, 

.16-59, 

.l£-59, .16-59, 

YTHK 

• .lE-59, 

•lE-59, 

.lE-59, .16-59, 



.lE-59> 

.16-59,' .lE-59, 

TCD 

■ .3E-01> 

.15-59, 

.lE-59, .16-59, 


.lE-59, 

.lE-59, 

.16-59, .lE-59, 

ZOIHE 

• 1/ 



AWR 

■ O.Of 



AWT 

■ 0.0» 



YDIH 

• .lE-59, 

.16-59, 

.16-59, .16-59, 


.lE-59, 

.lE-59, 

.lE-59, .16-59, 

ZDIH 

■ .1E"59> 

.lE-59, 

.16-59, .lE-59, 


.l£-59» 

.15-59, 

.lE-59, .lE-59, 

TWISTX 

• 0.0, 



xwl 

• .3802t)E 

♦ 03, 


YBR 

« 0.0, 



16R 

• .^^E+02 

, 


THETA 

• .6E+02, 



ALPHA 

■ -.5£^01 

p 


BETA 

■ .1E402, 




(Horizontal tail generation) 


XROTAT 

• 

.597E+03, 

YPGTAT 

■ 

.6^3E+02, 

ZROTAT 

m 

.456+02, 

IFRNT 

m 

3, 

IflERGE 

m 

-3, 

NC55UG 

m 

I, 

ITtETH 

a 

0, 

ICON 

a 

0, 

NPHX 

a 

c, 

IFLAP 

a 

0, 

XCOR 

a 

.lE-59, 

XCOT 

a 

.lE-59, 

OELFU 

a 

.16-59, 

OELFL 

m 

.lE-59, 

ZCDR 

a 

.16-59, 

ZCOT 

a 

.16-59, 

RfcELW 

SEND 

a 

0.0, 


•lE-59# 

•lE-59, 

•l£-59, 

.lE- 59 , 

.IE- 59 , 

.lE- 59 , 


#ie- 59 ^ 
.lE- 59 , 
. ie- 59 , 
•ie- 59 , 


.lE-59> 
•lE-59/ 
.lE-59, 
.1E-5V, 
. lE- 59 , 
.U-!> 9 , 


.lE-59, 

.lE-59, 

.lE-^> 9 / 


.lE-59, 

•lE-59, 

.LE- 59 , 


.lE-59> 

.lE- 59 ^ 

•lE- 59 ^ 


•lE-59, 

•lE-59, 

•lE-59, 


. lE-59# 
.lE-59> 
•lE-b9# 


.lE- 59 , 

.lE-59, 

.lE- 59 , 


.lE-59f 

.lE-59, 

.lE-59, 

.lE-59, 


•lE-59, 
.lE- 59 , 
.lb-S 9 > 
< lE-t>9, 


•lE-59# 

.i£- 59 ^ 

.lE-59> 

.lC- 09 , 


.ie-59, 

. 1 E-& 9 # 


.lE-59, •lE-59/ aE-59, .1E«59, .lE-59, 


lE-59, .lE-59f .lE-59, .lE-59# .lE-59, 





INPUT FQR GEOMETRY GENERATION OF HORIZONTAL TAIL 


N AHELIST WING INPU T 

IHPUT •! D 

Bw - .zBasoE+oa sweob« 

AUTOMATIC GEOMETRY CRW ■ .19690E+03 SWELG« 

GENERATION CHOSEN B18W« 0. 0 SWl ■ 

,^^4$*^*^*t*^4^4**^* TRW ■ •37500E + 00 ANGR ■ 

ANGT » 

ICHRD -1 0 

SLAB-SIDED AIRFOIL CHOSEN XWOl* .50000E+00 D 

04^t^******************** XW02- 0. 0 

IRADE •! 

LEADING-EDGE RADIUS CONSTANT 

FOP ENTIRE SURFACE RADE» •75000E+00 


CONSTANT THICKNESS RATIO TV.RD- .60000E-01 


CONSTANT MEAN CAMBER LINE THICKNESS RATIO 


LEADING-EDGE DIHEDRAL WILL BE COMPUTED 


AWR» 0. 
AWT« 0. 


TWISTX- 0. 0 

#t«#^4>******** XW1» •3802 5E+03 

TRANSLATION IN X?Y^Z YBR« 0, D 

t*****4«*it^««A«**4« Z0R* .^5000E+02 

THETA* .60000E+02 
ROTATION IN ROUfPITCHfYAW ALPHA* -. 50000E+01 

beta • .lOOOOEfOZ 


uo 



APPENDIX 




BASIC GENcRATED GEOMETRY 



PT 

XU 

YU 

ZU 

?T 

XL 

CHORD 

1 







1 

0.0000 

0.0000 

0.0000 

1 

O.OOCO 


2 

.0371 

0.0000 

.2329 

2 

.0371 


3 

.1446 

0.0000 

.4427 

3 

.1446 



.3120 

0.0000 

.6063 

4 

.3120 


5 

. 5226 

0.0000 

.7147 

5 

.5226 


6 

.7558 

o.cooo 

• 7554 

6 

.7550 


7 

49.6029 

0.0000 

6.2847 

7 

49.6029 


8 

98.4500 

0.0000 

11.8140 

8 

98.4500 


9 

131.2667 

0.0000 

7.8760 

9 

131.2667 


10 

164,0833 

0.0000 

3.9380 

10 

164,0833 


11 

196.9000 

0.0000 

. 0000 

11 

196.9000 

CHORD 

2 







1 

54,3255 

38.7500 

0.0000 

1 

54.3255 


2 

54,3627 

38.7500 

.2331 

2 

54.3627 


3 

54,4705 

38.7500 

.4432 

3 

54.4705 


4 

54*6362 

39,7500 

.6093 

4 

54.6382 


5 

54.0493 

38.7500 

.7151 

5 

54.8493 


6 

55.0828 

38.7500 

. 7555 

6 

55.0828 


7 

93.6739 

38.7500 

5.0541 

7 

93.6739 


8 

132.2651 

33.7500 

9.3528 

8 

132.2651 


9 

158.2449 

38.7500 

6.2352 

9 

158.2449 


10 

184.2248 

38.7500 

3.1176 

10 

16^.2248 


11 

210.2047 

38.7500 

.0000 

11 

210.2047 

CHORD 

3 







1 

108.6510 

77.5000 

0.0000 

1 

108.6510 


2 

106.6383 

77.5000 

. 2337 

2 

103.6883 


3 

109.7966 

77,5000 

.4440 

3 

108.7966 


4 

108.9650 

77,5000 

.6102 

4 

103.9650 


5 

109.1760 

77,5000 

.7157 

5 

109.1763 


6 

109.4109 

77. 5000 

.7555 

6 

109.41C9 


7 

137.7455 

77.5000 

3.8235 

7 

137.7455 


8 

166.0802 

77,5000 

6.8915 

S 

166.0302 



165.2232 

77.5000 

4.5943 

9 

185.2232 


10 

204.3663 

77,5000 

2.2972 

10 

204.3663 


11 

223.5093 

77.5000 

.0000 

11 

223.5093 

CHORD 

4 







1 

162.9765 

116.2500 

0.0000 

1 

162.9765 


2 

163.0142 

116.2500 

. 2347 

2 

163.0142 


3 

163.1234 

o 

o 

. 4459 

3 

163.1234 


4 

163.2932 

116.2500 

.6122 

4 

163.2932 


5 

163.5066 

116.25CO 

.7170 

5 

163.5066 


6 

163.7420 

116.2500 

. 7554 

6 

lo3. 7420 


7 

161.6L86 

116,2500 

2. 5928 

7 

181.8186 


8 

199.3952 

116.2500 

4.4303 

8 

199.8952 


9 

212.2015 

116.2500 

2.9535 

9 

212.2015 


10 

224,5077 

116.2500 

1.4760 

10 

224.5077 

1 

11 

236.8140 

116.2500 

• 0000 

11 

236.8140 


YL 


0.0000 

0.0000 

0.0000 

0.0000 

0.0000 

o.oocc 

0.0000 

0.0000 

O.OJOO 

o.uooo 

0.0000 

38.7500 

38.7500 

38.7500 

38.7500 

38.7500 

38.7500 

38.7500 

38.7500 

38.7500 

38.7500 

36.7500 

77.5C00 

77.5000 

77.5000 

77.5000 

77.5000 

77.5000 

77.5000 

77.5000 

77.5000 

77.5000 
77.5000 

116.2500 
116.2500 
116.2500 
116.2500 
116.2500 
lib. 2500 
116.2500 
116.2500 

116.2500 

116.2500 
116,2500 


ZL 


0.0000 

-.2329 

-.^^27 

-.6088 

-.71*r7 

-.7500 

-.3750 

-.0000 

-,0000 

-.0000 

0.0000 


(Horizontal tail geometry 
before trfiinslation and 
rotation) 


0.0000 

-.2331 

-.6093 

-.7151 

-.7500 

-.3750 

0.0000 

-.0000 

-.0000 

0.0000 

0.0000 

-.2337 

-.6102 
-.7157 
-.7^99 
-. 3750 
-♦0000 
-.0000 
0.0000 
0.0000 


CALCUtATEO PARAMETERS 


0.0000 

23<»7 

-.^^59 

-.6122 

-.7170 

7<i98 

-,37<t9 

.0000 

-.0000 

-.0000 

0,0000 


CRW • 
CT • 
BW • 
81 • 


196,900 

73,838 

232,500 

0,000 


AW • 
ACT 

X8ARW • 

SWO • 


• 000 
0.000 
0*000 
X0.050 
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HORIZONTAL TAIL GENERATED GEOHETRY 




RT 

XU 

YU 

ZU 

PT 

XL 

CHORD 

1 









1 

39<r.7175 

-9.0139 

-29.3695 

1 

399.7175 



2 

399.7789 

-9,2078 

-29,2953 

2 

399.7239 



3 

399.9070 

-9.3697 

-29.1319 

3 

399.6118 




395.0390 

-9.9837 

-29.0391 

9 

399.9582 



5 

395.3071 

-9,5369 

-28.9630 

5 

395.1535 



6 

395.5902 

-9.5331 

-28,9229 

6 

395.^69 



7 

999.0569 

-.8907 

-21.9110 

7 

993.3907 



6 

992.5726 

2.8516 

-19.6995 

8 

991.3029 



9 

529.3995 

11.9169 

-19.0009 

9 

523.9981 



10 

556.1169 

20.9321 

-13.1C22 

10 

555.6932 



11 

587.6883 

30.0979 


1 1 

9fl7. 

CHORD 

2 









1 

991*7693 

23.95661 






2 

991.6303 

23.7629 

LEADING EDGE 

FINE 

detail has 



3 

991.9592 

23.6003' 

XIE 


ZLEU 




992.1916 

23,9869 1 

0.00000000 


0.00000000 



5 

992.3600 

23.9319 3 

.00207778 


.00396338 



6 

992.5935 

23.9376 5 

.00999137 


.00983068 



7 

980.9157 

26.9196, 7 

.00729503 


.00526590 



8 

519.2379 

29.3917' 9 

,01055180 


.00582083 



9 

599,3906 

36.5639= 11 

.01933992 


,00695999 



10 

569.5939 

93.7950 13 

.01872995 


.00719233 



11 

599.6962 

50.9217 15 

,02303920 


•00803180 

CHORD 

3 



• 17 

.02976396 


•00S99072 



1 

988.8211 

51.9270 19 

.03665206 


.01008280 



2 

938.6826 

51,7329 21 

.09965339 


.01132199 



3 

989.0116 

51.5701 23 

•05399786 


.01272163 




969.1997 

51.9562 25 

,06979996 


•01929399 



5 

969.9139 

51.9021 27 

.07728596 


.0X609005 



6 

989.6976 

51.9009 29 

.09185936 


.01798803 



7 

517.7755 

53.6701 ♦♦ 



♦ ♦♦ 



8 

595.9032 

55,9310 ♦ 1 

EXIT WIN 

6 E 

X ♦ 



9 

569.9368 

61.219Q i»* 



««« 



10 

582.9709 

66.5079 

56.9529 

10 

582.7235 



11 

601.5090 

71.7960 

56.9771 

li 

601.5090 

CHORD 










1 

535.0729 

79.8973 

85,1321 

1 

535.8729 



2 

535.9351 

79.7019 

85.2523 

2 

535.8696 



3 

536.0699 

79.5391 ’ 

85.3670 

3 

535.9691 



<1 

536.2999 

79.9259 

85.9697 

9 

536.1178 



5 

536.9700 

79.3721 

85.5355 

5 

536.3159 



6 

536.7051 

79.3790 

85,5752 

6 

536.5933 



7 

559,6368 

60.9256 

88.0656 

7 

559,3179 



6 

572.5635 

82.9719 

90.5565 

8 

572,0929 



9 

589.9830 

85.8719 

90.8935 

9 

539.1656 



10 

596.3979 

89.2705 

91.2305 

10 

596.2387 



11 

608.3119 

92,6703 

91.5675 

11 

608.3119 


U1 
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APPENDIX 


INPUT FOR GEOMETRY GENERATION OF 


-namelist 


INPUT- 


IHPUT •! 0 


automatic geometry crw • 

GENERATION CHOSEN BIS*J* 

,^^^$9i^****4**4*4*** TRW • 


•335AAE+03 
.^O^OOr+03 
0. D 

•30560E+00 


SW£OB« ,593906+02 
SWcLG- ,593906+02 
SWl • 0, 

ANGR • 0, 

ANGT a 0. 


(The letter "D" indicates that 
the default was chosen) 


«**»*^**«^«*«**##*««««»*««i NSPACE* 1 0 

CIRCULAR-ARC AIRFOIL CHOSEN NYU • 9 

NXU ■ 9 


LEAOING-cOGE RADIUS CONSTANT 
FOR ENTIRE SURFACE 


,750006+00 


constant THICKNESS RATIO TWRO- 

444 ^ 4444444 ** 44 * 44 * 4*444 


,600006-01 


CONSTANT MEAN CAMBER LINE THICKNESS RATIO ICO- ,300006-01 


IDIHE •! 0 


4444444444 * 44444444 * 44 * 444 * 44 * 4 *** 4*44 

LEADING-EDGE DIHEDRAL WILL BE COMPUTED AWR- 0. 

4444 ** 4 * 44444444 ** 444 *** 4 * 4444 * 4**4444 AWT» 0 , 


TWISTX* 0* 


44444444444444444444 

TRANSLATION IN X»Y#Z 

4444444444444444*444 


ROTATION IN RCLL»»rTCH* YAW 


.23770E+03 
0. 0 
-.35217E+02 

THETA* .30000E+02 
ALPHA- -.100006+01 
BETA • 0. 


$.****$ 44 ^4 

rotation- pcim 


XPDTAT- .600006+03 
YftGTAT- 0. 0 

Z^DTaT- -.352176+02 D 


IMERGE- 3 


44444444444 * 444444444*4444444 

THIS COMPONENT WILL BE MERGED 
WITH THE FUSELAGE 

4444444444444444444444**44444 


ITtETH-0 0 


N A « E L I S T 


INPUT- 


cND OF INPUT FOR GEOMETRY GENERATION OF 


WING 


APPENDIX C 


--3 

00 


BASIC GENERATED GEOMETRY 




PT 

XU 

YU 

ZU 


PT 

XL YL ZL 







CHORD 

I 
















1 

0.0000 

0.0000 

.6686 


1 

0.0000 0.0000 .6686 




(Wins seometrv 

before 



2 

.0^92 

0.0000 

.9613 


2 

.0692 0.0000 .6072 





translation 

and 



3 

.1902 

0.0000 

1. 1896 


3 

.1902 0.0000 .1916 





rotation) 




<1 

.^0^6 

0.0000 

1.3809 


6 

.6066 0.0000 • 0695 








5 

• 66^3 

0.0000 

1.6902 


5 

.6663 0.0000 0.0000 









6 

51.0813 

0.0000 

11.5983 


6 

51.0813 0.0000 .0000 









7 

101.^982 

0.0000 

10.7676 


7 

101.6982 0.0000 .0000 









8 

151.9152 

0.0000 

22.9558 


8 

151.9152 0.0000 .0000 









9 

202.3322 

0.0000 

26,2362 


9 

202.3322 0.0000 .0000 









10 

252.7^91 

0.0000 

22.5856 


10 

252.7691 0.0000 .0000 









11 

303.1661 

0.0000 

18.0061 


11 

303.1661 0.0000 .0000 









12 

353.5830 

0.0000 

10.6060 


12 

353.5830 0.0000 .0000 









13 

^0^.0000 

0.0003 

0.0000 


13 

606.0000 0.0000 0.0000 







CcqpQ 

2 
















1 


55 . y0^7 



1 

96.6956 55.9Qo7 .6696 









2 

4 . J L 

55. 067 

.6626 


2 

96.5666 91,67 .60*^9 









3 

9^.636C 

55 . 9067 

1. iv09 


3 

96.6360 55.yOb7 .l-yi/ 



! 






4 

V • 9 0 0 rt 

55.9067 

1 . 3“^ 19 


6 

96.9U08 55.9067 .0696 



1 







95.1609 

55. 936? 

1.6^05 


5 

9*^. 1009 55.9007 .wOOO 









6 

1 n .c92U 

55.90* 7 





1 3 ?n _ 









7 

172.6231 

5 5. .>0 67 

CHORD 6 












= 

211.3.92 

■;5.''0*-7 


1 

283. 

6361 167.7200 .6760 

1 

283.6861 

167.7200 

• 6768 




2 5 u . 0 : ^ 3 

5 5.‘‘5t 7 


2 

263. 

5361 167.7200 .9512 

2 

233.5361 

167.7200 

.6127 



1 0 

Tv ’ . i 166 

65 . 30*^7 


3 

283. 

6796 167. 7200 1.1993 

3 

283.6796 

167.7200 

.1961 



1 i 


56 . y :i .1 


6 

28 3 . 

3970 167.7200 1.3881 

6 

28 3.8970 

167.7200 

.0502 



1? 

j'. ^.?7“7 

*•: .V •*'7 


5 

236. 

1597 i67,72CJ 1.6522 

5 

286.1597 

167.7200 

.0000 



1 3 

6 0 5 . 0 'J 9 6 

55.9067 


6 

7 *9. 

51-9 it7.7i^3 9,216:; 

6 

2 9 i . 


t 

1^7,7200 

0.0 000 

CHORD 

3 





7 

J 1 6 . 

37/1 167,7209 0,1055 

7 

3 1 6 . H 7 7 



167. 7200 

• 0 C 0 0 I 



1 

U8.99Q7 

111.8133 


P 

3 J , 

107.720J 7.1631 

6 

3 3 0 . 2 i 5 8 

167.7200 

O.OCOG i 



2 

189.0602 

111.8133 


9 


^■^90 167. 7 3 CO 7.^^-n 

9 

39 5.5-'96 

167. 72CO 

.0000 



3 

1B9.1821 

111.8133 


10 

3b0. 

'^53 2 1 6 7. 7 2 00 6.7 9?1 

10 

360.4 5 32 

l'-7.720C 

O.C‘(|{»0 , 




109.3977 

111.8133 


1 1 

376. 

ni3 167.7201 5.3620 

11 

370.3119 

167.7200 

•OCOO 1 



5 

189.6585 

111.6133 


12 

39 1 , 

u7U0 167.7200 3.1003 

12 

39 ;,6706 

167.7200 

0.0000 



6 

216. 7037 

111.8133 


13 

607. 

02V3 167.7200 -.OCOO 

13 

607. C25 

■3 


167.720C 

.0 000 



7 

263. 7688 

ill. 8133 

10.3226 


7 

2637f668 nTTeTll .0000 









B 

270.7939 

111.8133 

12.6315 


6 

270.7939 111.8133 .0000 









9 

297.6 390 

111.8133 

13.0105 


9 

297.6390 111.8133 .0000 









10 

326.0862 

111.8133 

12.0610 


10 

326.0392 111.5133 .0000 









11 

351.9293 

111. P133 

9.5807 


11 

351.9293 111.8133 0.0000 









12 

378.9766 

111.8133 

5.5636 


12 

378.9766 111.8133 .0000 

[ 






r 


13 

606.0195 

111.8133 

-.0000 


13 

606.0195 111.8133 0.0000 

CALC 0147^=0 

p A»'AMeT?P - 











C w 

• 606 

i 

000 

AW • 

.000 










c r 

• 123 

• 

563 

ACT • 

0.000 











* 335 

• 

660 

X6ARW • 

0.000 











• 0 

. 

000 

StfO # 

1*035 
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WING 


GENERATED GEOMETRY 


1 

1 


PT 

XU 

YU 

ZU 

PT 

XL 

YL 

ZL 


t 

j CHORD 

1 

1 

237.7A51 

-.3343 

-40.9611 

1 

237.7451 

-.3343 

-40.9611 




2 

237,7901 

-,4707 

-4C.7241 

2 

237.7982 

-.2036 

-41.1866 




3 

237,927<i 

-.5948 

-40.5066 

3 

237.9425 

-.0957 

-41.3710 




k 

238.1389 

-,6905 

-40.3372 

4 

238.1590 

-.0247 

-41.4901 




5 

238,3969 

-.7451 

-40,2381 

5 

238.4194 

0.0000 

-41.5204 

(Final generated geometry) 



6 

2e6,633«i 

-5.7992 

-30,6056 

6 

2S6.e2d7 

0.0000 

-40.6485 



7 

338,95^6 

-9.3737 

-23.5353 

7 

339.2380 

0.0000 

-39.7686 




8 

389,3003 

-11.4779 

-19.0114 

8 

389,6472 

0.0000 

-38.8887 


' 


9 

439,6902 

-12.1171 

-17.0246 

9 

440.0565 

0.0000 

-38.0000 




10 

490.1244 

-11.2928 

-17.5722 

10 

490.4650 

0.0000 

-37,1289 




a 

540,6029 

-9.0031 

-20.6576 

a 

540.8751 

0.0000 

-36. 2490 




12 

591.1259 

-5.2420 

-26.2911 

12 

591.2844 

0.0000 

-35.3691 


1 


13 

641,6936 

0.0000 

-34,4892 

13 

641.6936 

0.0000 

-34,4692 


, CHORD 

2 

1 

331,7382 

49.C918 

-11.3619 

1 

331,7382 

48.0818 

-11.3619 


1 


2 

331,7933 

47.9453 

-11,1247 

2 

331.7914 

48.2127 

-11.5877 


1 


3 

331.9209 

47,8212 

-10.9073 

3 

331.9360 

48.3207 

-a. 7724 




A 

332.1328 

47.7257 

-10.7381 

4 

332,1529 

48.3916 

-11.8918 


j 


5 

332.3912 

47,6714 

-10.6396 

5 

332.4137 

48.4166 

-11.9301 




6 

371,0008 

43.8472 

-3.3410 

6 

371,1389 

48.4166 

-11.2542 




7 

409,6445 

41.1488 

2,0000 

7 

409.3642 

40.4166 

-10.5782 




8 

448.3219 

39.5694 

5.4192 

0 

446.5894 

48.4166 

-9.9023 


1 


9 

487,0331 

39.1050 

6.0993 

9 

437,3146 

48.4166 

-9.2263 1 




10 

525,7779 

39,7545 

6.4505 

10 

526.0398 

48.4166 

-8.5504 




a 

564,5565 

41,5196 

4,0698 

11 

564,7650 

48.4166 

-7.8744 




12 

603.3689 

44.4045 

-.2504 

12 

603,4902 

48.4166 

-7.1985 




13 

642,2154 

48.4166 

-6.5225 

13 

642.2154 

48.4166 

-6.5225 


! CHORD 

3 

1 

425.7313 

96.4974 

18.2300 

1 

425.7313 

96.4974 

18.2380 




2 

425.7766 

96.3607 

18.4756 

2 

425.7047 

96.6266 

16.0117 




3 

425,9147 

96.2366 

18.6931 

3 

425.9299 

96.7370 

17.8264 





426,1274 

96.1414 

16,8617 

4 

426.1476 

9b. 60o3 

17.7067 




5 

426,3366 

96.0877 

18.9592 


426.4091 

96.0332 

17.6661 




6 

453.3492 

93.4939 

23.9232 

6 

453.4501 

96.9332 

16.1401 




7 

4»-C,3351 

91.6719 

27.5504 

7 

430.4911 

96.9332 

1H.612I 




e 

507,3443 

90.61*74 

29. ^^65 

k 

507.5321 

96.0332 

19.0642 




9 

534.3765 

90.327; 

30,3219 

9 

534,5731 

9b. 4332 

19.5562 




10 

5ol.4314 

‘-0.»'027 

30. *.717 

10 

561.6142 

96.8332 

20.0282 
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00 

O 


u 

566.5104 

92.0423 

28.796G 

11 

566.6552 

96,8332 

20.5002 

12 

615.6121 

94.0514 

25.7/3^6 

12 

615.6962 

96.8332 

20.9722 

13 

642,7372 

95.3332 

21,4442 

13 

642.7372 

96,d332 

21,4442 

CHORD A 

1 

519.7243 

144.9114 

47.8407 

1 

519,7243 

144.9114 

47. J407 

2 

519.7702 

144,7742 

45 . C792 

2 

519,7763 

145.0434 

47.6129 

3 

519.9J97 

144,6501 

48.2960 

3 

519,9249 

145.1527 

47,4262 

<» 

520.1244 

144.5557 

4 8.4639 

4 

520.1446 

145.2247 

47.3054 

5 

520.3655 

144.5037 

48,5586 

5 

520.40bl 

145.2498 

47.2665 

fa 

535.7007 

l<»3.1415 

51.1356 

6 

535.7644 

145.2498 

47,5345 

7 

551.0205 

142,1971 

53.0893 

7 

551.1208 

145.2498 

47,8026 

8 

566.3689 

141.6682 

54.2731 

6 

566,4771 

145,2498 

48.0706 

9 

581.7218 

141.5539 

54.7392 

9 

581.6335 

145.2498 

46.3387 

10 

597.0872 

141.8537 

54.4880 

10 

597,1899 

145,2498 

48.6067 

11 

612.4652 

142.5685 

53,5102 

11 

612.5462 

145,2498 

48.8748 

12 

627.8557 

143,6997 

51,8273 

12 

627.9026 

145,2498 

49,1428 

13 

643.2589 

145.2498 

49.4109 

13 

643.2589 

145.2498 

49.4109 



leading edge fine 

detail has 

been Taken from 

CHORD 

NO. 2 



XLE 

ZLEU 

ZLEL 


XLE 

zleu 

1 

0.00000000 

.00215650 

.00215650 

2 

.00100000 

.00426784 

3 

.00207770 

.00470621 

-.00000311 

4 

.00323940 

.00525377 

5 

.00449137 

.00576698 

-.00043603 

6 

.00584072 

.00631396 

7 

.00729503 

.00689635 

-.00093475 

8 

.00886245 

.00751574 

9 

.01055180 

.00017367 

-.00148413 

10 

.01237255 

,00887158 

11 

.01433492 

.00961077 

-.00200108 

12 

.01644993 

.01039235 

13 

.01872945 

.011Z1713 

-.0U272 171 

14 

.0211t627 

.01208578 

15 

.02383420 

.01299827 

-.00339137 

16 

.02668809 

,01395423 

17 

.02976396 

.01495260 

-.00406997 

18 

.03307906 

.01599152 

19 

.03665206 

•01706813 

-.00472428 

20 

,04050296 

.01817842 

21 

.04465339 

.01931689 

-.00530356 

22 

.04912666 

,02047634 

23 

.05394786 

.02164750 

-.00573253 

24 

.05914407 

.02231857 

25 

.06474446 

,02397481 

-.00590170 

26 

.07078046 

.02509797 

27 

.07728596 

,02616557 

-.00565409 

28 

.08429747 

.02715020 

29 

.09185436 

.02801059 

-.00476719 

30 

.09999904 

.02873051 


♦EXIT .ylNGEX^ 


ZLEL 

.OOOZ7263 

.00020562 

.0006790^ 

.00120318 

.0017772A 

.0023971^ ! 

.00305368 

.00373129 ! 

. 00^^0265 

.00502732 

.0055^27^ i 

.00585811 i 

.0058«.212 1 

.0053076<i 

.00399065 
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♦ ENTER MERGE* 

INTERSECTION CANNOT BE FOUND FOR RAy IZ Of UPPER SURFACE WING 
INTERSECTION CANNOT BE FOUND FOR PAY 13 OF UPPER SURFACE WING 
intersection CANNOT BE FOUND FOR RAY 12 OF LOWER SURFACE WING 
INTERSECTION CANNOT BE FOUND FOR RAY 13 OF LOWER SURFACE WING 


THE FOLLOWING CHORD DESCRIBES THE UPPER AND LOWER INTERSECTIONS OF THE WING WITH THE FUSELAGE. 


CHORD 

a 

PT 

XIU 

YIU 

ZIU 

XIL 

YIL 

ZIL 

0 

1 

.A0083E+03 

.836736+02 

.103936+02 

.90083E+03 

,836736+02 

.103966+02 


2 

•A0103E+03 

.836156+02 

.106836+02 

•90079E+03 

.837296+02 

.10125C+02 


3 

• AOlldc+03 

.039986+02 

.109056+02 

.900776+03 

•837756+02 

.99023E+01 



• A0138E4-03 

.633933+02 

,110676+02 

.900906+03 

.C3605E+02 

.975756+01 


5 

. A0162ct03 

.83332=+U2 

•111613+02 

.901196+03 

,636166+02 

.97iJ2;+01 


6 

.A30fctt+03 

.799973+02 

.169896+02 

.931256+03 

.837776+C2 

,102136+02 


7 

•A60A9C+03 

.779393+02 

, 203606 + 02 

.9ol39h+03 

.^373 Jt +02 

.10717C+02 


a 

.990916+03 

•759676+02 

.226373+02 

.9913"3+03 

.335696+02 

.111936+02 


9 

•52057E+03 

.753886+02 

.23395E+C2 

.52L96P+03 

.833766+02 

. 1 15566 + 02 


10 

•55092E+03 

.757566+02 

.233926+02 

.551566+03 

.831536+02 

.119716+02 


u 

.581926+03 

.770016+02 

.21^796+02 

.58162t+03 

*^29o3c+C2 

,123866+02 


12 

•61193E+03 

,770815+02 

. 168B9E + 02 

.612213+03 

, 329B':6+02 

. 129176 + 02 


13 

.692526+03 

.770813+02 

. 100353 + 02 

.692596+03 

.v2'>’. ‘6 + C2 

.139976+02 

THE FOLLOWING CHORD OFSCRIBES TH2 UPPER 

AND LOWcR INTEhSECTIGN'S QF 

THE piu^I Z .TAIL 

with THt FUSELAG6 

CHORD 

A 

PT 

XIU 

YIU 

ZIU 

XIL 

YIL 

ZIL 

H 

1 

.99629E f03 

.563656+02 

.530226+02 

,996296+03 

,563656+02 

,530226+02 


2 

.99695E+03 

.562323+02 

•53226L+02 

,996186+03 

,56501 E+CZ 

. 526I2E+0Z 


3 

.996666+03 

.561176+02 

. 53905F + 02 

.996196+03 

.565236+02 

.525166+02 


A 

•996896+03 

.56030C+02 

.535396+02 

.996176+03 

.567326+02 

.529566+02 


5 

.99712E+03 

.559303+02 

.536166+02 

,996286+03 

, 56b09t; + 02 

,523966+02 


6 

.997326+03 

♦559706+02 

.536336+02 

,996996+03 

.568366+02 

, 522906+02 


7 

.520526+03 

.55700E+02 

.59133F+02 

.518966+03 

.580856+02 

, 50A59E+02 


8 

•59537E+03 

.553966+02 

.596986+02 

.592536+03 

.5997h£+C2 

.93916E+C2 


9 

•56165E+03 

. 577966+02 

.510726+02 

.560016+03 

,606996+02 

.96675E+02 


10 

.57937E+03 

.609096+02 

.971276+02 

.57869E+03 

.619066+02 

.998196+02 


11 

•59872E+03 

•632526+02 

.928196+02 

.598726+03 

.632526+02 

•92819E+02 

AOCHRC 

-CHORO(S) 3 THROUGH 

3 HAVE SEEN 

SET TO CHORD 

2 FOR UPPER 

SURF HGRIZ.TAIL 


AOCHRC 

-CHORD(S) 3 THROUGH 

3 HAVE BEEN 

SET TO CHORD 

2 FOR the lower SURFACE H0RI2.TAIL 


> (Wing; IMERGE = 1) 


(Horizontal tail; 
IMERGE = 1) 


CO 
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I 


CD 

r\j 


BEGIN SEARCH FOR IMT£RS£CTICN OF FUSELAGE WITH FIN ^ (fin: IMERGE = -1, NDEBUG = l) 

FIN IS CK FUSELAGE CENTERLINE, MID«1 (MID*1 VERTICAL^ »*I0«2 VENTRAL) 

HAS LEADING-EDGE RAY GEOMETRY OF FIN" BEEN SHIFTED.— 0—(C-N0> 1-YES) 


— BcGIN search for POINT OF INTERSECTION OF 


FIN 


RAY 1 WITH FUSELAGE. 


MAXIMUM FUSELAGE WIDTH • .8^02E^02 

THE TEST-RANGE OF THE . FIN SPANS CHORDS 1 TO ^ BY 
RAY 1 SPANS FUSELAGE CROSS-SECTIONS 10 TO 12. 


(surface ray limits of search) 
(fuselage limits of search) 


IYX»1ZY,IZX, IXZ^IXY, IY2- 1 

OYDXf DZOYrDZDX^OXCZfDXDY^DYOZ- 
SYiBZ^BZXfBX ,BXYfBYZ- 
IYX,IZY#IZX,IXZ,IXY,IYZ- 1 

0YCX,02OY#CZDX#CXDZ»0X0Yf OYOZ- 
6Y>EZf3ZX#BX ,3XY>3YZ* 

?T1- 3 TT?* n (X,Y,Z)1» .559CE+03, 

FOR RAY 1 GN LO'iCR FIN 


0 . 

0 . 


-.<J9999E-59 
-•99999E-59 

i! 1 

-.99999F-59 
-.99999E-59 
.1207t+03 (X>Y>Z)2 


.77209E^OO 

-.31057E+03 


•12938E^01 
• <»0183e^03 


-.99999E-59 

-.99999E-59 


0. 

0. 


LINEAk eCUATIOJ^S DESCRIBING RAY 1 


C. X 

-.1003E-58 y 
• 129<»E^01 Z 


J^/The^j.fioso outboard ray segment 

I rky segment end points (PT1,PT2 


-.10006-58 

.<.01bt+Q3 


V 


.77289E+00 .1293B£aOI -.99999E-59 0. 

• 31057E+C3 .<r0183E+03 -.99999E-59 0. 

► .6Cll£+03> 0. > .15A0E^03 

is tested first. The coordinates of the 

are (X,Y,Z)l and (X,Y,Z)2, respectively 
The ray segment is described by Y = DYDX»X + BY; Z = DZDY*Y + BZ; etc. 

The variables lYX, IZY, . . ., lYZ describe the ray equations in the 

YX plane, ZY plane, . . . , YZ plane. Each is flagged as follows: 
lYX = 0; slope / 0 in YX plane 
1; slope = 0 in YX plane 

2; slope = « in YX plane 




RAY 1 SPANS FUSELAGE C R J S5-S ECT IONS il TO 12. 


'first fuselage cross-section segment to be tested) 


.520C6^03> 


x(-f + n 

•60C0t+03 


Y, Z (K, J )-l 

^ .6651E+02 


Y>Z(K4U J)~2 

# .690CE402 


Y#Z(K + 1# J4D-3 
.36536+02# .69008+02 


Y»Z(K#J + n-A 
.37868+02# .66618+02 


(These are the four corner points of the fuselage panel: K = 11 , J = l) 


LlhE 19 
LINE 23 


INTERSECTS RAY 
INTERSECTS »AY 

^ (This 
▼ is 
XT' 


I AT XI#YI#Z,I- .52006 + 03 0. .66616 + 02 FROM RAY 60S AT YI# XITEST* .^BeOE+OS 

I AT XtfYI#ZI« .600CE + 03 0. -.69006 + 02 FROM RAY ECS AT Yl# XITEST- .99HE+03 ' ' 

is the first occurrence of the ray segment intersecting two fuselage panel sides. LINE ih 
the panel side connecting corner points 1 and k, LINE 23 connects points 2 and 3. 
is the corresponding X at YI on the ray segment.) 


DOES EXTRAPDLATPD XI Lit wlTHlN C P OS S-S E C T ICN RANGE XI« .98676+03 


/X(K) ^ XI ^ X(K+1) \ 

^520.0 ^ ^486.7 ^ 6 OO.OJ 


No - continue to next^ 
fuselage panel j 


0 XIQNaddV 



•5Z00t*03f •6000C+D3 •37366+0?, .6661E+02 

RAY X SPANS FUStLAGE CR3SS-SECT ICN5 10 TC 11. 


•3663E+02# .6900E+0? 


.<*33<»€+02* .b/Zlb + O? 


• <»A59E+02» .6A83t+02 


' J XCK), X{K+1J y#2(K,J)*l 

1 •AOOOE+03, •5200E+03 0. , .630^E+02 0. 

LINE lA INTERSECTS RAY 1 AT XI,YI#ZI- ,^0006+03 
! LINE 23 INTERSECTS RAY 1 AT XI,Y1#ZI* .52005+03 

DOES EXTRAPOLATED XI LIE WITHIN CROSS-SECTION RANGE XI« 

DOES EXTRAPOLATED ZI LIE WITHIN Z-RANGt OF FUSE PANEL Z1- 

DOES EXTRAPOLATED YI LIE WITHIN Y-RANGE CF FUSE PANEL YI- 

LIN6 0 INTERSECTS RAY 1 AT XUYItZI* .A867E + 03 

15 Yl WITHIN Y-TEST RANGE OF RAY 1 
1$ XI WITHIN X-TEST RANGE OF RAY I 


Y,Z(K+1. J)-2 

f .6661C+02 


0 . 

0 . 

• <»867B + 03 
•6562E+02 

0 . 

0 . 


Y,Z(K+l,J+l)-3 
.378BE+02, •6661E+02 

.630AE+02 FROM PAY EOS AT YI# XITEST- 
• 666U + 02 FPOM RAY EOS AT YI# XITcST* 


Y#Z(K,J+1)-A 
•3991E+02# •630AE+02 

•A83^E+03 
• <»860E + 03 


•6562E+02 FROM PAY cQS AT YI# XITEST- .^867E+03 


2 .AOOOt+03# .5200C+03 .39916+02# .530AE+02 

RAY 1 SPANS FUSELAGE CROSS-SECTIONS 9 TO 10. 


•3788E+02# .6661E+02 


.AA69E+02# .6A83E+02 


•A67XE+0Z# •6125E+02 


DOES 

2 


X(K)# X(K+1) 
.30006+03# .^OOOE+03 

line 1^ INTERSECTS RAY 
LINE 23 INTERSECTS RAY 


Y#Z(K#J)-1 

0. # .6006E+02 0 
1 AT XI#YI.ZI« .3000E+03 
1 AT XI#YI#ZI» .<i000E+03 


Y#Z<K+l#J+l)-3 >^Y#Z(K#J+1)-A 

.3991E + 02# .630^6+02 .lS>%E + 02# .6006E+02 

FROM RAY EOS AT YI# XITEST- .<t795E+03 
FROM RAY 60S AT YI# XITEST- .<t83AE+03 


EXTRAPOLATED XI Lit WITHIN CR3S 5-StC TZCN RANGE 
.30CCE+03# .^OOOE+03 .1995E+02# .6006E+02 


BACK UP ONE POINT ON RAY 1 AND REPEAT ITERATION. 


THE test-range of THE 


fin 


SPANS CHORDS 


Y#Z(K+l#4)-2 

# .630<»E + 02 

0. .6006C+02 

0. .630<»E + 02 

XI- .^867c+03 

• 3991E + 02# .630<iE + 02 .h571E+02# .61256+02 .26766+02# 

(After testing through the fuselage limits of search, no 
intersection is found. Ray limits of search are set to 
next inboard ray segment.) 

1 TO 3 BY 2. 


•58276+02 


RAY 1 SPANS FUSELAGE CROSS-SECT IONS 10 TO 12. 


IYX#I2Y#IZX#IXZ#IXY#IY2- 1 

OYOX#D2DY#OZOX#DXOZ#DXOY#or02- 

o 

* 

o 

0 2 1 

-.99999E-59 

.772896+00 

.12933E+01 

-.999996-59 

0. 

BY#ez#62x#Bx ,exY#eyz- 

0. 

-.999996-59 

.310576+03 

.A0183E+03 

-•99999E-59 

0. 

nx#IZY#IZX#lXZ#lXY,IYZ- 1 

DYOX#O2OY#CZOX#0XOZ#OXOV#OYOZ- ’ 

o 

o 

0 2 1 

-.999996-59 

•77269E+00 

•1293BE+01 

-.999996-59 

0. 

BY#SZ#BZX#BX #BXY#BYZ« 

' o; 

-.999996-59 

.31,A1>7E+03 

.^0183E+03 

-•99999E-59 

0. 

PTI- 2 PT2- 3 (X#Y,Z)1- .51^86+03# 0. 

# .87336+02 (X#Y#Z)2- 

.55306+03# 0. 

# .I207E+03 



FOR RAY 1 ON LOWER FIN 

LINEAR ECUATIDNS DESCRIBING RAY 1 

Y • 0. X 0. 

Z • -.lOCOE-58 Y -.10006-53 
X • .129^6+01 Z .<i018£+03 

RAY I SPANS FUSELAGE CTROSS-SECT IONS 11 TO 12. 


(iteration continues until correct limits are found. 


XIK)# X(K+1) 
.5200E+03# .6000E+03 

LINE Ik intersects ray 
INE 23 INTERSECTS 


Y#Z(K# J)-l 





00 

LO 
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TBbP^OZ, .6661E+02 


J )-l 

» . 6006 L +02 0 . 

1 AT XI ,vi , , 5CG0c*0^ 

lT^ lj i ’rrrKbJCTS pay 1 AT XI#YI,Z1- .<.0CCc + C3 
DOES EXr^iAPJLATrU XI LIE .iITHlN C =:05 S- S fc C T ION PAN&c XI- 
2 • 3000tO3» .'♦DOOE^OB •lQ91>E + 02> ,6006t + 02 

BACK UP CNE POINT ON RAY I AND REPEAT ITERATION, 

THL TEST-RANGE OF THE FIN SPANS CHORDS 1 

RAY 1 SPANS FUSELAGE CROSS-SECTIONS 10 TQ 11. 


I YX# I ZY, iZX, I XZ» IXY, I YZ- 1 2 0 

DYOX,DZCY,rZOX,OXCZ,OXOY,DYOZ« 0. 

t Br$ B7#BZX» EfX , BX Y» dYZ- 0. 

PT1« 1 PT?. ? (y,Y,Z)l- .^717E+03. 

FOR PAY iL^LL;^5R FiN 

j LINEAR tCUATiONS DESCRIBING RAY 1 

1 Y • 0. X 0. 

' 2 • -. 1000E-S8 Y -.lOOOE-S'B 

' X - 2 •^Oiac+C3 


XlfbST* t 


• ^i^69£ + 02/ .6<r83E+02 


•^ 671 E+ 02 # . 612 $E +02 


Y#Z (K + 1# J)-2 

f #G 30 ^E+C 2 

0 . . 600 fc‘+C 2 

0, •630^»E + 02 

.^667E+03 

3991 E+ 02 > . 630^^+02 

TO 2 BY 1. 


Y,2(K + l, J + D-3 Y, Z(K»J ♦!)-<» 

• 3991E + C2# .63C^»E + 02 .1995E + 02# .6006E+02 

FRC:^ FAY SC5 AT YI» XITEST- •^795E+03 
FROM RAY EOS AT YI» XITSST« .^83^E+03 


,^b 7 it + 02 . + 


•267bE^02, .5827E+02 


2 1 

-.99999E-B9 .772d9E+00 

-,999998-59 -.31057E+C3 

,590Ct*C2 (X,Y,Z)2- •51A‘^E+C3f 


. 1293 BE 4-01 

,^01B3E+03 


-•99999E-59 

-,99999h-59 

b733E+02 


RAY I SPANS FUSELAGE C» J5S-S EC T IONS 11 TO 12. 


J X(K}/ X(R+1) 

1 .52C0£+03> .OOOOt+03 

LINE lA INTERScCTS RAY 
LINE 23 INTERSECTS RAY 


Y,Z(K,J)-1 

0. t .6661E+02 0. 

1 AT XI , Y1 , ZI- . 5200F+03 

1 AT aI,YI,ZI- .tOOCE+03 


Y,Z(K+1, J)-2 

f .6900E+02 

.G661F+02 
.69CCE+C2 


Y#Z(K + 1, J + D-3 Yf Z(K, JtU-A 

,3653E+C2» ,6900E402 .3760E+02# *6661E+02 

FRCF! PAY ECS AT Ylf XIT6ST- •9880b+C3 
FROr RAY ECS AT Ylf X1TE5T- •<r9UE^-03 


DOES 

2 

EXTRAPOLATED 

,5200E*03, 

XI Lifc within 

.bOCOE + J3 

CROSS-SECTION RANGc 
.37d4E+0?» .5661E+0? 

XI- .A867E+03 
,3653E+02a 

•69C0E+C2 

.R33RE+02, 

•6721E+C2 

. AA69E+02^ 

.6^83E+02 

3 

,5200c+03f 

.03C0E+U3 

,AAo9c*G2j 

. 59^ 3: +J2 

, -339t. ♦C2, 

.S72iE+C2 

, A'/10r+02, 

.6310E+02 

,50A56+02f 

•6071E+02 


,5200t+33. 

,5CODfc+03 

• t/ORSE + OZ * 

. 6071 E+J2 

o 

o 

.631 +02 

. 5-3 63r +C2f 

. 576? £+02 

• 5 A58 £ +02# 

.552AE402 

5 

. 52JCF4C3# 

•OCOJl+03 

,5‘»93Et02> 

. 5529E02 

.5363E+02, 

, 576 3C +02 

,53^3E+G2/ 

, 5763E+C2 

,5A9b£+02> 

.552AE+02 

6 

,5230E+03» 

,6000E*03 

,5^9H E+0?> 

. 5 62a f +02 

,5 3^3E+0?> 

. ‘■'76 lE +02 

. 536iE+02> 

• 5763E+02 

•5A98E402# 

•552AEt02 

7 

•5200E*03» 

•6000E+03 

,5^98E+02» 

• 552AE+02 

,5363E+02> 

•5763E+02 

•5363E+02# 

•5763E+02 

•5A98E402# 

.552^E402 

8 

• 5200E^03# 

.600CF+C3 

.5A93E+02, 

. 552AE402 

.5363E+02/ 

. 5763E+02 

.5363E+02/ 

.5763E+C2 

.5A90E+02# 

•552AE+02 

9 

.520CE+03, 

• 600C-E+03 

. EAVb E + 02f 

. 652AE +02 

. 5363E^C2» 

,57^3E+02 

. 8 ACOt +02» 

• 1090E+02 

• 838<tt^02» 

•I08AE402 

XO 

•520GE^03# 

•6000E+03 

• '^389E + 02# 

A 108At*J2 

,8^00t*C2# 

.109GE+02 

.6ACOE+C2# 

,i090E+G2 

•8A01E+02, 

.1003E^02 


APPENDIX C 



PAY 1 SPANS FUSELAGc CRQ S S-S 6C T IONS 10 TO 11, 


J X(K)# X(K^l) 

1 .<r 000 E+ 03 > * 52 COE + 03 

LIKE intersects RAY 
LINE 23 intersects RAY 

DOES extrapolate; 


Y/Z(K, J)-l 

0 . f . 630<tE*02 0. 

1 AT XI,YI,ZI« .AC 006+03 

1 AT xr.YIWI- •b2COE+03 

XI- 


Y^Z(Ktl,J )-2 

» . 6 b 6 ie +02 

0 . •63C«rE + 02 

0 . .e) 66 ie ^02 

.<t867E+03 


Y»Z(K + 1 , J + n -3 Y,Z(K#J + 1 )-A 

, 3788 t+ 02 / - 6661 E +02 . 3991 E+ 02 f • 6309 E +02 

FROM RAY EOS AT YI# XITEST* •^ 83 ^E +03 
FROh RAY EOS AT YI» XITEST- . 4860 E +03 


XI LIE WITHIN CROSS-SECTION RANGt 

^ (^00.0 ^ XI ^ 520 . 0 ; yes) 
j DCcS EXTRAPOLATED ZI LIE WITHIN Z-RANb- OF FUSE PANEL ZI- 
I ( 63 . OU ^ ZI ^ 66 . 6 I; yes) 

; DOES cXTRAPGLATEO YI LIE WITHIN Y-SAN&E OF FUSE PANLL YI- 0 . 

] ^ ( 0 . g YI S 39.91; yes) 

\ LINE C INTERSECTS RAY 1 AT XI,YI#ZI- .A 8 fa 7 E ^03 0 . 

^ ^ (These are the coordinates of the candidate intersection point) 

* IS YI V.ITH 1 N Y-TEST RANGE OF RAY 1 

^ (0. ^ YI ^ 0. ; yes) 

IS XI WlHIN X-TtST RANGE OF RAY 1 

(i+Tl.T ^ XI ^ 51^.8; yes) 


. 65626+02 FROM RAY tQS AT YJ, XITEST- .^ 8676+03 


FINAL TEST FCR PANEL LIMITS, 
i INlTlALIZc FUSE PANEL CORNER POINTS. 

Y 1 »Y 2 »Y 3 >YA« 0 . 0 . 

1 Z1#22»Z3,ZA- .630376+02 •666I5E+02 

; DETFRMINE INTERSECTION 3F L-2A AND L-13 

i ^ 


. 378826+02 

• 66615 E +02 

YT,ZT- 


. 39906 E +02 

• 63037 E+C 2 

.19A3A6+02 


I13#I29« 1 I 


0 . 

. 65623 E +02 


.6A672E+02 

YT,ZT is the intersection of the fuselage panel diagonals L-24 and L-13. 

I13(l2i^) = 0; YT,ZT does not lie within corner points 1 and 3 (2 and i|)) 

= 1; YT,ZT lies within corner points 1 and 3 (2 and ^) 

TRICHK-YI^YZ# Y3#YI« 0. .378826+02 .399066+02 

ZlfZ2W3^ZI« .630376 + 02 .666156+02 .63037E+02 

CORNER I, YT»ZT» 0. .133576+03 II-O 

^ /Fuselage diagonal L-13 is used to divide the panel into two triangles. A line is passed\ 
through the YI,ZI from each vertex to its opposite side starting with corner 1. ) 

\ YI lies between YI and YT and ZI lies between ZI and ZT; II = 0 false: II = 1 true / 

CASE II-TRICHK,IRANGE»1 VlfY3,Y^,YI« 0. .378826+02 .39906E+02 0. 

n»Z3^Z<»^2I» .6 3037E + 02 .66615E + 02 .6303 7E + 02 .656236 + 02 

^RAI’JGE = 0; YI,ZI lies within triangle 1,3,^. \ 


\ =1; YI,ZI does not lie within triangle 1,3,^)., 

• 0 . 

. 666156+02 . 656236+02 


TRICHK-YWY 2 # Y 3 > YI- 
Zl»Z 2 #Z 3 f ZI« 


0 . . 378826+02 

. 630376+02 . 666156+02 

0 

CORNER Ib YTbZT* 

0 ^ 

. 666156+02 


CORNER Zb YT» ZT* 

0 ^ 

• 656236+02 

II-l 

CORNER 3 / YT^ZT* 0 . 

CASE 1 I-TRICHX. 1 RAMG 6«0 

• 63037 E+C 2 
Y 1 »Y 3 »Y 2 .YI« 0 . 

n-i 


(YI,ZI lies within 
triangle 1,2,3) 




.630376+02 


•378826+02 

•666156+02 


•666156+02 


•656236+02 


CX> 

oi 


appendix c 



LOWER SURFACE FIN 


XI 

YI 

ZI 

<»B6.73e3 

0.0000 

65.6229 

<►86.7917 

.2727 

65.6295 

<»36.9<»<i6 

.5060 

65,6291 

987.1760 

.6739 

65.6360 

987.9692 

.7975 

65.6993 

523.3187 

3.6351 

6 6 . 7 2 5 

559.6920 

6.9772 

67.7967 

599.9361 

9.2798 

68.3990 

629.3813 

12.1172 

68.0990 

629.3951 

0.0000 

68.8990 


THE FOLLOWING CHORD DESCRIBES THE UPPER AND LOWER INTERSECTIONS OF THE FIN WITH THE FUSELAGE. 


CHORD 

2 

PT 

Xiu 

YIU 

ZIU 

XIL 

yil 

m 


1 

.98679E+03 

0. 

.65623E402 

.98679E403 

0. 

•656236402 


2 

•98679E*03 

-.27268£^00 

.65625E402 

.93679F403 

.272686400 

.65625E402 


3 

.98699E+03 

-.50809E+00 

.65629E402 

.90699E4O3 

•50809E400 

.65629E402 


9 

•96718E^03 

-.673876400 

.65636E402 

.98718E403 

.67337E400 

.65636E402 


5 

.9a795e*a3 

-•79796E400 

•65699E402 

•98795E403 

.797966400 

•656996402 


6 

•52362£«03 

-.36351E401 

.66729E402 

.523826403 

•36351E40I 

. 667296+02 


7 

•559692403 

-.697728401 

.677976402 

.559696+03 

.69772C+C1 

.677976402 


8 

.59999E+03 

-.927986401 

.63399E+02 

.599996403 

.92796E4C1 

.668996402 


9 

•6293bE*03 

-.121176402 

.68899E+02 

.6293tiF403 

.12117E402 

.668996402 


10 

•62990E4D3 

0. 

•68899E402 

•62990E403 

0. 

. 688996+02 

ADCHRD 

-CHORO(S) 1 THROUGH 1 HAVE BEEN 

SET TO CHORD 

2 FOR UPPER 

SURF FIN 



AOCHRO-CHCRO(S) 1 THRQIGH 1 HA^^E BEEN SET TO CHORD 2 FOR THE LOWER SURFACE FIN 


♦ EXIT MERGE* 




Sample Case 1 Output (TAPE38) 


sFtse 

X 


0.0# •3E'*'01# .5E + 02# .12d?+03# .1526 + 03# .16^6 + 03# .1766+03# .26 + 03# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

O.Q# O.C# 0.0# 0.0# 0.0# 0*0# C.G# 0.0# 0.0# 0.0# C.O# C.O# 0.0# 0.0# 
.2E-C6# .2E-0^» .2E-06# .2E-06» .2E-06* .2E-06. .26-06# .19953E+02# 

.365319999999996+02# 0.0# C.O# 0.0# 0.0# 0.0# 0.0# C.O# C.O# 0.0# 

. 35 296 13C 9 30 391c + 0C# . 1 969 fa 1 6 1 37 E + Cl # .20757cJC99 02fa0 5E+01» 

.2t7 6-.t-9 9i.ll7<,6E + 02, .9fa719t06 i^'3'0 61 c + 02, .9i,69099fa5fa 1 7996 + 02# 

0.0# G.O# 0.0# 0»0# 0.0# 0.0# . 2 66 6666 666 666 7c-0fa # 

.269762690919036 + 01# . 3 902 1661 1 3 52 b 7 E + 01# . 6026 1 06 1 5 1 9 57 5 E +0 1 # 

. 52975055018 73bt+C2# . 509 6 079 09 7 66 76 E + 02# . 9 9 1 0 1 1 9E 2b 2 966 E + 02 # 0.0# 

0.0# .3E-06# .3c-06# . 105632 352991 1 7E+01# . 3 60000000000 1 6E + 1 1 # 

.17 U + Q2# . 37052999999797c+C2# . 57 0 0 59 999 9 999b E +0 2 # , 

C.O# 

.907 
.59- 
.19 
.17 
O.C; 

.10 

.5? 

O.C 
.17 
C.O 
.33 


.3E+03# .^E+03# .52E+03# .6E+03# 0.0# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 


.39905999999999E+02# 
.23333333333333E-06# 
.31957369550101E+01# 
.93390?79bl2ei5c+02# 
• 26666666666632 C-06# 
.12579592992bl5E+02# 
0.0# 0.0# 0.0# C.O# 


37881599999999E+02# 

.23333333333312E-06# 

.68199921b06022E+01# 

0 . 0 # 0 . 0 # 0 . 0 # 

.70588291960783E+00# 
.3Z527293655638E+02#|| 

0 . 0 # 0 . 0 # 0 . 0 # 


.5909O2b3HO6592E+Ol# • 899 5 33 2057667E +01# 
.59Qbl5999999Vfal: + 02# . 5 3b 3 1 999999999 E + 02 #|. 


O.C 
.3P 
.33 
.27 
.62 
C.C 
. 32 
.8 9«| 
.29 
.56 
C.C 
.28 
• 65 
0.0 
.32 
.60 
.22 


2 


O.C, .3E+01# .1668698 + 02# . 393 9 9 99 9999 999 F ♦ 02# . 5 2 OCOOOOOOOOO 7E + 02# 
. 6C055C95d71 56E + 02# .6 30 306972 9 7 70 60+0 2# . 6661 9fa788990b2 t + 02# 


C.O# O.C# 0.0# .3j: + 01 

.57073399995913E+02# 
O.C# 0.0# 0.0# 0.0# 0 
. 55998978935963 E + 02# 
.6902681616S956E+O2# 

. 29399999999999E+02 # 

. 5916PC9‘# 152 3C1E + 02# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 


.1668698+02# . 3939 99999 9 99 99 E+ 02# 
6005509537156E+02# . 6303669 7297706E+02# 

0# 0.0# 0.0# 0.0# .3E+01# .166069E+O2# 
.553796510392036+02# .55295720901B38E+02# 

.6 7212222355969E+02# 0.0, 0.0# 0.0# 0.0# 0.0 
.50‘#52331 391572£ + 02# . 59265922185206F+02# 

.57133677571762E+02. .bC711850959991E+0?# 

0# O.C# .3E + 01# . 166869-i + Q2 , 

.52bC» 590361236+02# . 52 9 36 6 7 76 1 9 33 9E +0 2# .957E+OZ# . 98 6 P 1 7 5 E +02# 
O.C# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# .36+01# .166869E+02# 

.9366+02# .9 5699999778 9 73 c+02# .966817997789^6+02# 

.57626999778 #e3E+02# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0,0# 0.0# 
•385195932503816+02# .9091 3C28 7CC2 59E+02# .92109771525196+02# 
.9^6-'' 7 99 779735 6 +02# .5l6o3‘#«i97797fc7E + 02# .552915 9Q7 79 785E + 0 2# 

TFT7 


O.C 

.39 

.51 

0.0 

.51 

c.o; 

.55i 

O.C 

• 29 
.87 
0.0 
.17 

• 10 


Z^AX 


NXS 
NSS 
Rf L 
ICQ 
SEND 


0.0, . 3105 07 9277fad5eE+01# .1268911 5 39 29 59 6 + 0 2# .26561227 77 2727‘^ + 0 2# 
. 36 3690535998396 +02 # . 9 32 5 5 962 8 269 05E ♦ 02# .6 36 363068 1768 86+02#*' 
.&90CC000331 9966+02# 0.0, 0.0# 0.0# 0.0, 0.0# 0.0, 0.0# C.O. 

C.O, -. 5t50985dib0 7916+00# .552000^05756626+00# . 2 372 716999 3Q9 t+01 # 
.3^*y31 569b 05953c + 01# .9053 37628 I0998E + C1# .6387629 10759626 + 01# 
•10e99999913059c+02# O.C# 0.0, 0.0# 0.0# 0.0, 0.0# 0.0# 0.0# 

12# ( — 

Fuselage cross-section coordinates 
Yf4AX,ZI4AX: Fuselage pi an form coordinates 


.56E+0Z# .56357790165137E+O2# . 
.69E+02# 0.0# 0.0# 0.0# 0.0# 0. 
.520000000000076+02# .566+02# . 

. 66619676(3990326 + 02# .696 + 02# 0 
.393999999999996+02# .519829986 
.562722206832076+02# .612987068 
0*0# 0.0# c.o# 0.0# .36+01# .16 
.595189869737126+02# .511825099 
.630972993652336+02# 0.0# 0.0# 
.393999^99999996+02# .992000000 
.51fa635E+02# .5529166+02# .5762 
.399E+02# .915E+02# .9259999999 
.51563999776931E+02# .552915997 
.281321801959996 + 01# .162883296i 
.933O651935O127E+02# .956999997 
.5762699977978bE + 02# Q.Q^ 0^ 


.33972691369319E+02# 

.89017112722689E+02# 

.293293651399996+01# 
.8721869967002E+01# . 




21 # 

.6E+03# 

1 # 


NXS 

NSS 

?v:. 


Ncunber of cross sections describing fuselage 
Number of points describing each half cross section 
le!’erence length 
■_’'>mp(;nera identifier !‘Iur 

fuso-Uf-e; P : wirir; i: canard; : horizontal tail; 5: fin 


APPENDIX C 


• 2377^5073201736 + 03* •331738179877^36 + 03* • A003 3^A 36533 1 1 E +03* .^25731270<»^572fc-j 

0.0* 0.0* 0.0* 0.0* 0.0* 0,0* 0.0* 0.0* 0,0* 0,0* 0.0* 0.0* 0*0* 0,0* 0.0* •2377901056' 

• <.010315025b<.3£c + 03, .^2 5 77660^698 8 3 6 + 03, .519770156^30^36+03* 0.0, 0.0* 0.0, 0.0* 0 

0.0* O.C* 0.0, 0.0* 0.3* 0.0, 0.0* .2379273670^15966 + 03, .3319206 75653266 

.^2591^*724517056+03* . 5 1 99 0971 2333 3 4? + 03* O.C* 0.0* 0.0* 0.0/ 0.0* 0.0* 0.0* 0.0, 0 

O.C* 0,0* O.Of ,238138865421076+03* .332132786258766+03* .401376616768796 

. 5201 24 a 7K ^ n £ r . r i a * na . ft . . i , .. n .n.. n.n . a. a. n n. n. p nr r. 

.3323d Yb » -.334282490710516 + 00* .480317609221686+02* . 6 f6750fe 51 67^1 + 02* 


.33192067565326E« 
0 . 0 * 0 . 0 * 0 . 0 * 0 < 
.401376616768796- 


. 3323< Yb 
0 . 0 * ( 

. 4 3 8 
0 . 0 * • 
.4803 
0 . 0 * • 
.5663 
.46 70 
0 . 0 * ' 
.5509. 
0 . 0 * ( 
.5685 
0 . 0 * • 

• 6278' 
.6422 
0 . 0 * > 


0.0* O.C* 0.0* 0.0» 0.0* 0.0* 0.0* O.C* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* — • 
•83614634320256E+02* .963606905606666+02* .144774190525086+03, 0.0* 0.0* 0. 

0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* -.594809779308026+00* .478211 

.96236555421836+02, .144650107976186+03* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0. 

0.0* 0.0* 0.0* -.690473333146096+00* .477256510401556+02* .83392! 

^1 1 7r i7Ti .A n^. n n. n n. n n. n.n. a a a _a n. aI.. 

.47671 ■ -.409611007778666+02, -.11361935216736+02* . 103976151155296+02* 

0,0* C 0.0* 0.0* 0.0* 0,0# 0.0* 0.0* 0.0* 0.0* 0,0* 0.0* C.O* 0.0* 0.0* 0 

,799^/ .106628950957026+02* . 1 8 4 75614 9026 076 + C2* . 46079226966666 +C2* 0.0/ 

0,0# C O.O, 0.0/ 0.0* 0.0* 0,0* -.405066039236456 + 02* 

,91571 .186930669124756+02* .482966149409616+02/ O.C# 0.0/ 0.0* 0.0* 0.0/ 

0,0* r 0.0* 0.0* -.4033719253037E+02, -.107381183257076+02/ 

,1515f .484638512266eE+02/ 0.0/ 0.0* 0.0* 0.0* 0.0* O.O, 0.0* 0.0* 0.0* 0 

-.1 06^447 40 2. 1 1 1 948 7flfl 1 a Qi 1 aoco 1 ^ 1 ne . 

Q Q ; 0.0* dXL • .237745075201736+03* . 33173317907743t+O3* .40003443653 

.164^” 0.0* 0.0* 0.0* 0.0* 0.0* 0.0* 0.0/ 0*0/ 0.0/ 0«0/ 0.0/ 

' ; 0.0* ( .400741919389966+03* .425784702472566+03* .51977629555 

' ' : .2755( 0.0* 0.0/ 0.0/ 0.0* 0.0* 0.0* .237942454633176+03 

• f ^ r. A. H .425929851727876 + 03* .51992490540118 6 + 03/ 0.0/ 0.0/ 0. 

O.C/ 0.0/ 0.0/ ,233158989761936+03* .332152923352846+0 

bes of wine uooer surface \ .520144596746896+03* 0.0, O.C/ 0.0* 0.0* 0.0* 0.0* 0.0 

t;es 01 wing upper suriace \ 


Coordinates of wing upper surface 
Coordinates of wing lower surface 


U.U/ t 

U. t/ U 

• t - 

0.0* ( 

0.0* 0 

0.0* c 

0 . 0 # ( 

O.C* 0 

.5182: 

0 . 0 * ( 

0.0/ 0 

-.6522 

0 . 0 * ( 

0.0/ 0 

0 . 0 , c 


0.0* 0 

0.0* c 


0.0* 0 

0 . 0 * c 


0.0/ 0 

0 . 0 * c 



0 . 0 * c 



0.0* 0 

A C 


• -.334282490710516+00/ . 4803 1 780VZ2 16B 

0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0.0 
.837290459771236 + 02/ .9662857635916776 + 02* . 
0.0* 0.0* 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ -.956909 
.967369849339596+02/ . 1451 5271 61M626 + 03/ 0 
0.0* 0.0, 0.0* -.247316972152026-01* .48391 
.145224682279586+03/ 0.0/ 0.0/ 0.0/ 0.0/ 0. 


0 . 0 / 0 
.96333' 
0 . 0 * 0 
0 . 0 / 0 
.96833 
O.C* 0 
0.0* Q 


-.409611007778666+02/ -.11361935: 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0.1 
.10125476751726+02/ .13011693756' 
0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 * 0 . 0 / 0 . 
.173264295850286+02/ .4742620466 
0.0* 0.0* 0.0* -.414901152460546 
.4730537138l795c+C2/ 0.0/ 0.0/ 0 
-.119301442452526+02/ .971016884 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 « 
.102134755863246+02/ .1814014543 
0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 * 0 . 0 / 0 . 0 / 0 . 
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1 NYU 
NXU 
I XLE 


I ZtEU 


ZLEL 


XXI 

XX2 

NC 

II 

RFL 

IFLAP 

ICO 

SEND 


5 # 

13» 

0»Qf 


.lE-02» •20777^2732^53^6-02# •32393983508231E-02# 


.7295025^915159t-02» 

•16^^992533^601t-01# 

.29763960755131E-01# 

*<»91Z665613332et-01^ 

.772659603^6891E-01# 

•215650322223016-02# 

•63139695d99037E-02# 

•96107659973095E-02# 

.1395^2307166796-01# 

.193i6333637976H-01# 

.25097965656559E-01# 

.21565032222301E-02# 


•886295250756276-02# .105517982798396-01# 
•1S72 9995529676-01# . 2 1 10 6272950 305 E-01 # 
•3307908295136-01# .366520699103056-01# 


♦ 5399 73616336776-01# 
.392979735229566-01# 
.926789971639356-02# 
.699639929925296-02# 
.103923976653036-01# 
.199526017317776-01# 


.591990737759516-01# 

.916593613529896-01# 

.97882065393929E-02# 

.751573720230196-02# 

.11217176237653E-01# 

.159915179330056-01# 


.20976399802522-01# .21697995600266-01# 
.26165569268683=-01# .271502095979996-01# 
.272625957212936-03# -.310510037092636-05# 


-•6 790 3599617971 c-03# -.939759597259236-03# 1 203 1 779 03 109 E-02# 

-.203188332373736-02# -.2397137503 9323 E-02# -.272171303960186-02# 


-.3 7 31 28 8 570093 96-02# -.9 0 69971182 56686-02# 
-.530355615983096-02# -•559?73978789016-02# 


-.990269935797666-02# 

-.573253926053996-02# 


••53921159091216-02# -•565909335038986-02# -.530763899653216-02# 


.999136760606056-02# 

.123725959823926-01# 

.238391991832166-01# 

.905029621301966-01# 

,69799961992136-01# • 

.999990995662976-01# 

.52537730593766-02# • 

.817366570009156-02# 

.12085779700916-01# • 

.170681335502026-01# 

.228185652999956-01# 

.?80lH5885id27U-01# 

-.205622562766986-03# 

-.198913071389976-02# 

-.305387390198826-02# 

-.972927597691816-02# 

-.585810919090316-02# 

-.97671881507056-02# 


•58907189509125E-02# 

•19339916916259E-01# 

.26688088321525E-01# 

.996533931971396-01# 

70780962569322E-01# 

576698359299536-02# 

.88715750813292E-02# 

12998268650636-01# 

.181789159539056-01# 

. 239798120999-5b£-Cl# 
.287305130536136-01# 
-.936031153907386-03# 
-.177723993180216-02# 
-.3391370391880bt-02# 
-.502732997593696-02# 
-.59017099763226E-02# 
-.399065361722096-02# 


• .16-02# 

■ .lEfOO# 

■ 30# 

• 2 # 

• .6E+03# 

■ 0 # 

■ 2 # 


NYU: Number of chord locations describing wing 

NXU: Number of points per chord location 

XLE, ZLEU, ZLEL: Coordinates of leading-edge point enrichment 

XXI: Longitudinal coordinate of second wing leading-edge enrichment station 

XX2: Longitudinal coordinate of final wing leading-edge enrichment station 


NO: Number of wing leading-edge enrichment longitudinal stations 

II: Chord number at which leading-edge enrichment is computed 

RFL: Wing reference length 

IFLAP: Control surface flag; (=0: no control surface; ^0: wing has or is a control surface) 


ICO: Component identifier flag 


I 

i 


i 
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I $HT 
! XU 




"-•ioil8l92693l68EToi^ ?23956^68262 166E402# "*23956568262166t+02# 

0*0» 0«0r 0*0* 0*0# 0«0» 0«0» C • Of 0*0f 0*0f 0*0f C»Of 0«0f 0«0f 0»0f 


• 3997175997029E+O3/ ,<191769321966396+03# .991769 3 21966396+03# 

0«0# 0«0# 0.0# 0.0# 0.0# 0.0# 0»0# 0«0# 0»0# 0.0# C.O# 0.0# 0.0# 0.0# 
*991830833721656+03# .996952669299996+03# .535935052765696+03# 0.0# 
0.0# 0.0# O.C# 0.0# 0.0# 0.0# 0.0# .399906961769636+03# 
.996660678309176+03# .536069919711196+03# 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# 0.0# 0.0, .395089023262216+03# .992191569329756+03# 

.5362< 

.99231 
0.0# I 
.9925 
0 . 0 # > 

.3205 
O.C# 

.5723 
.5993 
0 . 0 # 

.5695 
O.C# 


.99620627959966+03# 
0.0# .3997739370292 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
.991959161596096+03 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 
.992191569329756+03 




.23 762 3866803976 + 02# . 5 62 3 2166 6600 6 5 6 + 02# . 7970 i 8999620bt + C2 , 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# -.936972199233896+01# 
.561167528569586+02# .795391259305926+02# 0.0# 0.0# 0.0# 0.0# 
0.0# O.Of 0.0# -.998367656537066+01# .239863790115286+02# 

. 7992AA,74n%AAfl^*07. C.g. Q.Q. O.Q. 0.0. a.Q. C.G. 

.2393] 

0 . 0 # 

.23931 

0.0 


0 . 0 # 


0 . 0 # 


zu 


.563697055 
0.0# -.920| 
0 . 0 # 0.0 
.236003032! 
0 . 0 # 0.0 
.2396637901 
0 . 0 . 


All horizontal tail definitions 
are the same as those for the 
wing 


-.293695909176796+02# .830102290909216+01# .860102290909216+01# 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# C.O# 0.0# 0.0# 0.0# 0.0# 0.0# 
.892039195339916+01# . 532269669995 736+02# .052523956966636+02# 0.0# 
0.0# O.C# 0.0# 0.0# 0.0# 0.0# 0.0# -.29131930935156 +02# 
.539098600009956+02# . 8 536 703 39309966+ 02# 0.0# 0.0# 0.0# 0*0# 0.0# 
0.0# 0.0# 0.0# -.290391159033576+02# .913177901986096+01# 

- ft 1 1 g 1 1 1 g * ^ ri n n. a , a a ^ 


W. V# 

0 . 0 # 

0 . 0 # 

0 . 0 # 


.63251 

0 . 0 # 

0 . 0 # 

0 . 0 # 

0 . 0 # 

0 . 0 , 

0 . 0 # 

Q..CL. 


.9202 
0.0 
.92931 
0.0 
.59131 
0.0 
.90551 
• 20961 
0.0 
.21671 
0.0 
.92811 
0 . 0 # 
0 . 0 # 
JMLl 


XL 


991769321966396+03# . 99 17693 2 1966f76 + 03#"| 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 


.39971759970296+03# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

.99178C72165759C+03# .996176035950166+03# . 5 356 396031 03996+03 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# .399811829989966+03# 
•996l3875l96029t+03# .535969083917136+03# 0.0# 0.0# 0.0# 0.0# 
0.0# 0.0# 0.0# . 39995817796796 + 03# .94»201 0623697096+03# 

.5361 


.99221 
0.0 
.9929| 
0.0 
.5109| 
0 . 0 # 
.57201 
.5937| 
0 . 0 , 
.5694 
0.0 
.5964 


YL 


Vo 1 3 8 1 V 2 69 6 al ^ )i . 2 3 9^5 65 6 8"2 62 166 h + oY# 2 3 9 5 6 5 6 B Zj 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0. 
.291636060991986+02# .565011506897056+02# .80105821891 
0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# -.360789056982576+ 
.566279036957576+02# .803063397859126+02# 0 0# 0.0# 0 
0.0# 0.0# 0.0# -.393603105307536+01# .29539996332996+1 
.8097 
.2966 


0 . 0 # 

.2973 

0 . 0 # 

.5808 

0 . 0 # 

.8628 

.9193 

0 . 0 # 


Yl ^ V ^ 9 3 6 ^ 5 V 0 el 7 67 96 +'' 02 ^ ,'"dS(S'i 0 9 2 U ^ 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0«0i 

.86881301899966+01# .526115299881996+01 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# -.2^ 

.526163381791636+02# . 3992 28728272 36 +01 
O.C# 0.0# 0.0# -.296905871266+02# .852< 
.89359819003796+02# 0.0# 0.0# 0.0# O.Oj 
.89909973095396+01# . 39909 97609 5 39 6+ 01 1 
0.0# O.C# 0.0# 0.0# 0.0# 0.0# 0.0# O.Oi 
.899396921312596+01# . 5229 75 16 9895 566+< 
0.0# O.C# 0.0# 0.0# 0.0# 0.0# 0.0# —.2! 
.50958778960926+02# .865876093079136+01 
0.0# 0.0# 0.0# -.207890579991676+02# .J 
•88399829925196+02# 0.0# 0.0# 0.0# O.Oj 
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V£> 

r\> 


NYU 

NXU 

XLE 


ZIEU 


2L6t 


5# 

\lf 

0*0p .lE-02, .2077782732<»53AH-02» .32393983508281 1-02> 

• 7295025<»915154E*02» . 8862 A52507562 7E-02, . 10551798279839t'-01^ 

• 16AA992538<»601E-01# . 18729^^55296 78-0 1 » .2X1862729803056-01, 
.330790829 513 ?-01f . 366 520699 10305 E-0 1 , 
.539978616836776-01, . 5 919907 377 5951 H-01# 
.89297973522956E-01, 

-02, .3963378669573E-02, 


.297639607551316-01, 
.991266561333206-01, 
•77285960396891C-01, 
0.0, .295O8O88099335E- 


.526590336789696-02, 

.6013365O905669E-O2, 

.099071792922856-02, 

.12000912110679E-01, 

.16098051528823E-01, 


• 55333-797317161h-02, 

.719238939021996-02, 

.951929165399656-02, 

.127216269502006-01, 

, 169998928390536-01 , 

0.0, -.295080683993356-02, -.396337^66957 
-.51691996602833E-02, -. 5395967557 536E -02, -.563561973299365-02, 
-.69963827312226-02, -.679773973239196-02, -.706510196993126-02, 
-.81126518 379099E-02, -.39 92 3191971267 6-0 2, - . 8 8 8 5 792 5 5677 32 E-02, 
-.101316906350776-01, - . 10 5598 57 57 2 199 E-0 1 , 109081226839626-01, 

-.122128189589636-01, -.12573951663276-01, -.128917913206956-01, 


.9 

13 

593 

6 

1352 

9696 

-01, 

02 

, 

.95 

9 

3956 

8391 

7376 

. 5 

0 2 

032 

9 

8913 

6056 

-02, 

.7 

5Q 

798 

o 

^856 

9956 

-02, 

.1 

C0827 

9 

5607 

6656 

-01, 

. 1 

39 

355 

9 

9193 

9 09 6 

-01, 

.1 

79 


7 

9296 

2536 

-01, 

E- 

02 

, - 

. 

9595 

10650192 


-02j 


XXi 

• 

.16-02, 

XX2 

a 

.lE^OO, 

NO 

a 

30, 

II 

a 

2, 

RFL 

a 

•6E+03, 

IFLAP 

a 

0, 

ICO 

SEND 

m 

9, 


.999136760606056-02, 

.123725959823926-01, 

.2383919916 32ibfc-01, 

.905029621301966-01, 

.6979<»96199213t-Cl, . 

.999990995662976-01, 

.963067986030726-02, 

.61290650569715E-02, 

.603180211928636-02, 

.10683121323B02E-01, 

.19293990960171E-01, 

.190269776299536-01, 

-.980752231513136-02, 

-.509078359736036-02, 

-.739851261^17696-02, 

-.92 91609233 5051 E-C2, 

-.11911069927516-01, 

-.13153170939711E-01, 


I^All horizontal tail definitions are the same as those for the win^ 


.58907189509125E-02, 

.19339916916259E-01, 

.266880883215256-01, 

.996533931971396-01,. 

7C78C962569322E-01, 

.501568655276926-02, 
.69 5999 15 309999 =-02, 
.899597977108366-02, 
.113219375181976-01, 
.151978695069796-01, 

-.995695339721936-02, 

-.616083555067936-02, 

-.779782911028196-02, 

-.970776186226266-02, 

-.118220297192326-01, 
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. .466738316008215 + 03, .46673831600321E + 03, .5146 28293652 516 + 03, O^ol”4867917024204- 

0.0/ 0.0, 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0, 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0* ‘ 

.5l467967<.^9^65t*03, , 5 5G00611 2873 97C + 03/ . 60U 36723562136 + 03/ 0.0, ^ + 03, 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0. 0.0. .48694455461096 +03, ’o ^6 o 0 ‘ 


.;5815U098895E + J3,' .60128 50842942 6 + 03, 0.0, 0.0, C.O, 0.0, 0.0, 0.0, 

0.0, 0.0, .437175951531196 + 03, . 487175951531196 + 03, _ _ “ “ 


0 . 0 / 0 . 0 / 0 . 0 / 


51&299<f<»t^9fc96l£+03i 

Ar>. nA-A-O.I 
0.0 / 0.0, 0.0/ 0 . 0 / 0 9 0 / 


All fin definitions are the same 
as those for the ving 


-.2726fa26785251-?£ + 00» 2723 209532 907£ + 00/ -.273191268 ^988 6E + 00/ -.274000^! 

0.0/ 0.0/ 0.0/ 0.0, 0.0/ 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, .-.5080A28t 

-,50B261 1355^^65E + C0/ - . 50a8^t5 6^ 22 125b t + 00/ -.510121190510926 + 00/ 0.0/ 0.0/ 

0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0.0, 0,0 r - , 6 7 38663B 63 5 5 99 £ + 00/ -.67386635 

-,67^58385265138E + 00/ - . 67 5 719 2 260<tl5l 6+00/ 0.0/ 0.0/ 0*0/ 0*0/ 0.0/ 0.0/ 0*0/ 

0,0/ ft- A ,. » , 7 4 7 4 * fc /»5aftjt a *i6jF+^r ^., 1 . # 7 

^ - 2U ■ .656229314^0611E + 02/ *6 562 29 3 1 A VO 6 1 IE + 02/ .8 733333333 13 33E + 02/ 

3*0 to 0.0/ 0,0/ 0.0/ 0.0, 0,0/ 0,0, 0,0, 0.0/ 0.0/ 0 . 0 / 0.0/ 0 . 0 / 0 , 0 / 0 , 0 / 

Z* ,873333333333336+02/ ,120666666666676+03, ,15^6+03/ 0,0/ 0,0/ 0,0/ 

* 0,0/ 0,0/ 0.0/ 0,0/ , 6 56290807567 <»6£ +02 / • 656 2908 07567^ 8 E+02 / 

. “I £+03/ 0,0/ 0,0/ 0,0/ 0.0/ 0,0/ 0,0/ 0,0/ 0,0/ 0.0/ 0,0/ 0.0/ 0,0/ 

S are the same 3598020620^E+02/ .37333333333333E+02, .120666666666676+03/ 


0 . 0 , 0 , 0 , 0 . 0 , 0 , 0 , 0 
-.67^58385265138E+00/ 
0^0/ ft- A- g- n ■ ■■7f. 74 

-.7^7 20 ■ .6562 

-.363 

0 . 0 . •8233 


O.C/ c 
.8733: 
0,0/ ( 
.154£i 
.688^' 
0,0/ < 
,8733: 
0.0/ C 
0.0, i 
0 . 0 / ( 


,<,8673e3160082T2 + 03, .9 8673g3160082U + 03/ . 5 1^926 293652 51E+0 
0 . 0 / 0 , 0 , 0 , 0 / 0 , 0 / 0 , 0 , 0 . 0 , 0 . 0 / 0 , 0 / 0 . 0 / 0 , 0 / 0 , 0 / 0 . 0 / 
.51^879674^,9^856+03/ .5 58003112873 9 76+03/ . 601 13672356213E+0 
0,0, 0.0, 0.0/ 0.0/ 0.0, 0.0/ 0,0/ ,4869445546i096£+03/ 

,55315560988956+03, , 60 1 28 508 4 2942 B+03 / 0,0/ 0,0/ 0,0/ 0,0/ 1 
0.0/ 0.0/ .487175951531196+03/ .487175951531196+03/ 

t n 1 fjr * ‘ *' •* '*■» .i X — AUi— — Q Q — a^. . n ^ rt.n^ n.n. n,n« n.n . > k 

*48 74^ YL • 0,0/^6.0/ 0.0/ 0,0/^ 0.0/ 0.0/' 0.0/ 0.6/ 0«0/ 0.0/ ' 

I .27268267852519E+00, .272820953290826+00/ .2731912“ 

5+5., 0.0/ 0,0/ 0,0/ 0.0/ 0,0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 1 

• Q " .50826118554476E+00, . 5088 4564221257E+00, ,5101211' 

^ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ 0.0/ .673866386653991 

• ^ ^ .674583852653386+00/ ,675719226941396+00/ 0.0/ 0.0 

^ 0,0/ ^ ^/-,tc..cfco.3QfcC> ■ - 

• ,7479<^** • .65 622 93144061 16 + 02/ .6562 2931 446! lli+flj/ 

,3635( ^* 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 

^•0/ ( ^ .873333333333336+02/ .120666666666676+03/ 

•^>353C .5644- 0«0> 0,0/ 0,0/ 0.0/ , 6562906075674«£ 

■' 0.0/ ( .1546 + 03/ 0.0/ 0,0/ 0.0/ 0,0/ 0,0/ 0.0/ 0 

,5961- .65635980206204E+02/ • 37333333333333E+02/ 

0 , 0 / ( 0 . 0 / 0 , 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 

,4856C . 12 066666666667E+03/ .154e+03/ 0,0/ 0.0/ 

- 0.0/ .66728539292216+02/ .66720539292211+ 

0 . 0 / 0 , 0 / 0 , 0 / 0 . 0 / 0 * 0 / 0 . 0 / 0 . 0 / 0 . 0 / 0 
.07333333333333E+O2/ #12066666666667f +03/ 
0.0/ 0.0/ .0,0* 0.0/ 0*0/ «638490l3l9952O£ 


vO 

UU 
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VO 

-tr 


NYU 

NXU 

XL£ 


ZL£U 


ZLEL 


XXI 
, XX2 
' NQ 
II 

jRFL 

IFLAP 

ICO 

SEND 


5> 

10, 

0.0, .lE-02, •2077782732A53<iE-02, . 3239398350829 lE-02, 

• 7295025491515<»t-02, • 88 62 <r5250 7562 7E-02, . 10551798279 8 39E-0 1 , 
.16^^9925334»601E-01, • 1 87294^5 5296 7=-0 1, . 2 1 18 6272960305E-01, 
.29763960755131E-01, .3307 90829513 6-01, . 366 52 06<»^ 10305 E-01, 
.^9126656133 320 6-01, .5 3 9^786165 36 776-01, • 591 <»9073775<r5 1 £-0 1, 

.77 28 59603^»6b91£-01, . 5 «t29 7 ^.735 2 29 566-01, . 916 5 3 6 1 3 52 <»89 £-01 , 

O.C, .^623215^16h016£-02, . 59 3 0 182 3 2 99 502 E-02, . 6H 1757 9 299 02 13E-02, 
.89613563671526-02, .876962391712996-02, .92209099993196-02, 
•107621955976126-01, .113935000605526-01, .119611928591533-01, 
.190999159593976-01, . 1 9 ? 19996 1 2 39 19 6-01, .156369759098193-01, 
.183339589794256-01, .19311799500866-01, .203262766993376-01, 
.235932995762366-01, .296511639998326-01, .257608051772325-01, 

C.O, -.96232l391b40166-02, -,593818262995026-02, 

-.812 599795 6 68 716-02, ‘39 6 1 o56°.67 1 5 2 ‘ -02 , - . 8 7o9 62 39 1 7 1 29 9£-02, 

-.102156133216356-01, -.107621955976126-01, -.113935000605526-01, 
-.133106890958126-01, 19099 915959397 E-01, -.198199961239196-01, 

-.173938186999166-01, -.18333958979^256-01, -. 1 93 1 1 79 9 5 008 6E-01, 
-.229977732333816-01, -.235932995762386-01, -.296511339998326-01, 
.16-02, 

♦ 1 6 + 00 , 

30, 

3, 

.66+03, 

0, 

5, 


Qvil fin definitions are the same as those for the 


.999136760606056-02+ 

.123725959823926-01, 

.233391991832166-01, 

.905029621301966-01, 

•69799961992136-01, . 

.999990995662976-01, 

.79957539255067b-02, 

.970238278509796-02, 

• 126l695313095*,e-01, 

.16999520607586-01, . 

.213732602592966-01, 

.268585830915196-01, 

-.631707929902136-02, 

-•922C909999319E-Q2, 

-.119611926591536-01, 

-.156369759098196-01, 

-•20326276699337E-01, 

-.257608051772326-01, 



.589071895091256-02, 

.193399169162596-01, 

.266890683215256-01, 

.996533931971396-01, 

707809625693226-01, 

.812599795668716-02, 

.102156133216356-01, 

.133106690958126-01, 

173938166999166-01, 

.229977732833616-01, 

-.799575392550676-02, | 
-.970238278509796-02, 
-.126169531309596-01, j 
-.16999520607586-01, 
-.213732602892966-01, 
-.268585830915196-01, 


APPENDIX C 



SCONST 

TITLE 


JO 

J1 

J2 

J3 

J<» 

J5 

J6 

ICAN 

IHT 

JFLAP 

NST 

NYF 

SEND 


.5720237^1^0088-1^5# . 168 102669161 75-183# .2253e883006315E-29, 
.66235824119^186-68# 71738305547276E+58# . 44403860393731E+86, 

•70739430ai6307E+2b# .122183529604 21E-48# .1661026^916175-133# 
.14517629854422-260# .4 4403660 3937 31 E+ 86# .16010266916175-183# 
-♦717363O5547276E+50# 7173830554 72 76 c+50# -.o 30 6728 2 77664+ 13 5# 

.44403860393731E+86# . 1 681 02669161 75-1 83/ . 1 222 8352960421 E-48 / 
.16310266916175-183# 388 894 1 3362 39 3E + 39# 717383055472 76E +58# 

..415769006524776-10# .57202374148063-145# 30 8894 13 362 39 3 E +39# 

.766958445714286+09# .240713309528138+67# .19^64959268609-106# 
.41576900652477E-10# .31910664056763+105# .14517629854422-260# 

• 81910664056768 + 105# . 1 4 5 I 76298 5 44 22-2 60# .19464959268 609-106# 

-.7 173830554 7276C+ 5b# .31009469161343-164# .19464959268609-106, 
-.71738 30554 7276 6 + 5 3# -. 7 1 7 3d 305 54 72 76E + 5 8# 71 7 38 305 54 72 76E + 50# 

-.7l738305547276£+53# -. 71 7 33 30 5 54 72 756 ♦ 56 # 717 38305 54 7276E+58 # 

-.71738 30554 7276E+50# -.717303055472766+58# -.717333G5547276E+53# 
-.717383055472766+56# -. 71 738 30554 7276E+58# -.717383055472766+58# 

1 , Not used 

Fuselage 
1# Wing 
0# Not used 

Pin / (Component geometry has heen generated. 0: 

0 # Not used 
0 # Canard 
1# Horizontal tail 
0 , Flap >/ 


.707394308163076+28# 

.14517629054422-260# 

-.71739305547276E+58# 

-.717383055472766+58, 

.31009469161343-164# 

•14517629854422-260# 

•51416157651922+163# 

-.717383055472766+58# 

.3227444524238+221# • 

.122133529604216-48# 

.122l3352960421t-4e# 

.415769C06524776-1C# 

-.7173b'305547276C + 5fi# 

-.717333055472766+56# 

-.717383055472766+58# 

-.717383055472766+58# 


.14517629854422-260# 

.22538863006315E-29# 

.49400934489447-222# 

.10962424619137+260# 

.15109850715206+125# 

•57202374148068-145# 

.19464959268609-106# 

•10551975563184-125# 

76695044571428E+O9, 

-.717393055472766+58# 

-.38bb9413362393E+39# 

-.45030064224451+116# 

-.71736305547276E+58# 

-.717383055472766+56, 

-.717383055472766+58# 

-.717383055472766+58# 


No; 1: Yes) 


1# 3# 1# 4# 2# 1# 1# 1# 1# 1# ^ Array containing intersection chord locations of components: 


■ 20# 50# 20# 30# 


Maximum limits of geometry arrays 
NYF(i): Maximum number of fuselage stations 

NYF(2): Maximum number of points per fuselage 

cross section 

NYF(3): Maximum number of chord stations for a 

planar surface 

NYF(4): Maximum number of points per chord 


NST(l): Not used 

NST(2); Wing 
NST(3): Canard 

NST(i|): Horizontal tail 

NST(5): Fin 

NST(6): Flap 

NST(T)-dO): Not used 


I 

i 


j 
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Sample Case 2 Input 


COLUMN 


I 23 <» 5678 q 012 3^56789012 3 « r 567890123 ^ 567890123 <» 567890123 *» 56789012345678901234567890 
CgHPA T ^ ' UHPLg CASE 1 — (PT/'SElTiTg ORIYl 
1 

fUStlkOS 1P01NT-87-P0INT, INCU) 


600 , 


17 34 2 


. 2 ) 

0 1 


0011 1 000 


o#ooooo 

3.00000 

50.00000 

100,00000 

128.00000 

152.00000 

164.00000 

176.00000 


200,00000 

600.00000 

250.00000 

300.00000 

350.00000 

400 . 000 C 0 

460.00000 

520.00000 

560.00000 

I 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

\ 

0.00000 

0.00000 

O.OOOOO 

0.00000 

O.OOOOO 

0.00000 

0.00000 

0.00000 


0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 


0,00000 

0.00000 

0.00000 

0.00000 

O.OOOOO 

0.00000 

0.00000 

0.00000 


0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0,00000 

0.00000 

0.00000 

> 

0.00000 

o.ooooo 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 


0,00000 

0.00000 

0.00000 

o.ooooo 

0.00000 

o.ooooo 

0,00000 

0.00000 


o.ccoco 

o.ooooo 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

0.00000 

> 

0.00000 

3.00000 

.00000 

3.00000 

.00000 

3.00000 

.00000 

3.00000 1 

.OOuOO 

3.00000 

.00000 

3.00000 

.00000 

3.00000 

♦00000 

3.00000 


.63796 

2.93098 

1 .24 6 5 ^ 

2.73411 

1.80644 

2.41762 

2.27440 

1.98190 


2.70000 

1.50000 

2 . 700 C 0 

1.50000 

3.13116 

.30413 

2.99487 

-.95655 

1 

2.32439 

- 2.03570 

1.23841 

- 2.66735 

.00000 

- 3 . 0000 C 

.00000 

- 3.00000 


.00000 

- 3.00000 

.00000 

- 3.00000 

.00000 

- 3.00000 

•00000 

- 3.00000 


O.OOOOO 

- 3.00000 

0.00000 

- 3.00000 

0.00000 

- 3.00000 

0.00000 

- 3.00000 


0.00000 

0.00000 

- 3.00000 

- 3.00000 

0.00000 

0.00000 

- 3 . C 0000 

- 3.00000 

0.00000 

- 3.00000 

0.00000 

- 3.00000 


0.00000 

16.08640 

.00000 

16.63640 

•00000 

16.68640 

.00000 

16.68640 

■ ^ 

.00000 

16.68640 

.00000 

16 . 6 P 640 

•oocco 

16.68640 

.00000 

16.66640 


1.20557 

16.53671 

2.34630 

16.12416 

3.38312 

15.40774 

4.25033 

14.64109 


5.04699 

13 . 72 C 00 

12.27758 

2.59426 

12.70871 

1.40015 

12,57510 

.14082 


11.90642 

-.93666 

10.52590 

- 1.57248 

9.58942 

- 1.90570 

9,33476 

- 2 . 12553 ? ? 

9.15263 

- 2, 41630 

8.99620 

- 2.72592 

8.86409 

- 3.04478 

8.73198 

- 3.36364 


8 . 0 C 607 

- 3»85652 

7.14531 

- 4.10913 

6.26505 

- 4.28589 

5,37672 

- 4.41637 

f . 

4.46417 
: .89746 

- 4.51491 

- 4.69422 

3.56986 

0.00000 

- 4.59505 

- 4.72727 

2. 69239 

- 4.62811 

1.79493 

- 4.66116 

i 

1 O.OOOOO 

31.24640 

.00000 

31.24640 

.00000 

31.24640 

.00000 

31.24640 

) 


GEMPAK title card 

GEMPAK geometry option card 

Fuselage card set 1 


ross section Y and Z 
coordinates at X = 0.0 


>at X = 3.0 


Fuselage card 
set 7 


>at X = 50.0 


I 

\ 


t 
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C0LU»1N 


6 


12 3 4 5 

12345678901234 567890123456769012345 6 789012345 6 78901234 


.00000 

‘3r.7^'6V0‘ 

■ "".oocoir 

'TT.T4W 



1.80932 

31.01014 

3.51760 

30.36769 

5.05972 

29.39144 

7.54379 

26.72COO 

22.46650 

3.75837 

22.89760 

2.56612 

22.10419 

.22841 

21.02535 

-.40772 

19,79093 

-.74154 

13.88948 

-1.79964 

18.56662 

-2.43435 

18.29397 

-3.09242 

16.52317 

-4,76771 

14,74671 

-5.28916 

12.93001 

-5.65387 

9.25457 

-6.12651 

7.40686 

-6.29191 

5.55664 

-6.36013 

1.65221 

-6.49658 

0.00000 

-6.564S0 



0.00000 

39.40000 

.00000 

39.40000 

.21176 

39,40000 

.63529 

39.40000 

.84706 

39.40000 

1.05882 

39.40000 

3.00121 

39.05001 

4.77947 

38.18642 

6.35679 

36.99351 

8.94200 

34.00000 

28.17229 

4.41026 

28.60338 

3.21906 

27.81382 

.88198 

26.73704 

.24455 

25.50370 

-.06961 

24.34211 

-1.45314 

23.92605 

-2.27107 

23.57470 

-3.11909 


21.29275 

-5,27797 

19.00350 

-5.94995 

16.66238 

-6.41993 

11.92599 

-7,02901 

9.54750 

-7.24216 

7,16062 

-7.33007 

2,38687 

-7.50590 

0.00000 

-7.59361 



O.OOOUO 

52.00000 

.00000 

52.00000 

.91234 

51.78343 

2.43136 

50,65072 

3.02652 

49.95170 

3.60000 

49.20000 

7.70087 

41.26667 

8.88631 

40.69095 

9.93786 

39.09567 

U.66133 

37.90000 

33,06297 

4.96904 

33.49404 

3.77873 

32.70778 

1.44210 

31,63277 

.80364 

30,40050 

.46918 

29.01580 

-1.15615 

20,51936 

-2.13112 

28,10104 

-3.14196 

25.38096 

-5.71535 

22.65217 

-6.51634 

19.86156 

-7.07656 

14.21573 

-7.80253 

11.38062 

-8.05665 

0.53546 

-8.16144 

2.64515 

-0.37103 

0.00000 

-8.47582 



0.00000 

56.00000 

.00000 

56.00000 

1.27543 

55.77315 

3.55654 

54,54620 

4.53691 

53.69467 

5.48903 

52.80854 

10.05065 

42.37501 

10,93974 

41.94321 

11.72839 

41,34675 

13.02100 

39.85000 

35.50B31 

5,24642 

35,93937 

4.05856 

35.15476 

1.72228 

34,03064 

1.08318 

32.84887 

.74858 

31.35264 

-1.00765 

30,81676 

-2.06114 

30.36422 

-3.15339 

27.42506 

-5.93403 

24,47650 

-6.79953 

21.46115 

-7,40487 

15.36067 

-8,13936 

12.29718 

-8.46390 

9.22288 

-8.57713 

3.07429 

-8.80360 

0.00000 

-6.9X683 




VO 


7 


8 


2345678901234567890 


100.0 


123.0 


152.0 


i6i+.o 



APPENDIX 


VO 

oo 


Column 


" 0. 00066 


.^0000 

56.55756 

" i ’.' 67775 " 




5.47890 

54.84843 

7,00745 

53.70436 

8.44538 

52.43668 

11.75333 

43.60000 

12.40044 

43.48334 

12.99316 

43.19547 

13.51093 

42.79784 

13,96216 

42.31088 

14.30067 

41.80000 

37,95365 

5.52781 

38,38470 

4.33840 

38.25319 

3.08272 

37.60174 

2.00239 

36.52651 

1.36273 

35.29723 

1.02797 

34.35987 

•21681 

33.68949 

-.85915 

33.11366 

- 1.99116 

32.62739 

- 3.16403 

32.14112 

- 4.33849 

29.46917 

- 6.15272 

26.30004 

- 7,08273 

23.06073 

- 7.73318 

19,79090 

- 8.21530 

16 . 5 C 557 

- 0.57615 

13.21374 

- 8.87114 

9.91030 

- 8.99282 

6,60687 

- 9,11449 

3.30343 

- 9.23616 

0.00000 

- 9.35783 





0.00000 

57.07339 

.00000 

57.07339 

4.13955 

56.37627 

8.05831 

54.60080 

11.50033 

52.10731 

14.39003 

48.99176 

17. 10000 

45.70000 

17.10000 

45.70000 

17.10000 

45.70000 

17.10000 

45.70000 

17.10000 

45.70000 

17,10000 

45.70000 

17. 10000 

45.70000 

42.04433 

6.00658 

43.27536 

4.89806 

43,15019 

3 . 6430 B 

42.49569 

2.56259 

41.42424 

1.92182 

40. 19395 

1.50677 

39.12656 

.66535 

38.36317 

-.56215 

37.70746 

- 1.05121 

37.15373 

- 3.18769 

36,60000 

- 4.52418 ; 

33.55737 

- 6.59009 

29.94951 

- 7,64912 

26.25991 

- 8.38901 

22.53645 

- 8.93801 

18.79536 

- 9.34972 

15.04606 

- 9.63564 

11.26514 

- 9.62419 

7,52343 

- 9.96274 

3.76171 

- 10.10129 

0.00000 

- 10.23985 





0.00000 

58.56422 

9.97650 

58.56422 

14.16531 

57.86575 

18,03283 

56.09656 

21.47410 

53.59475 

24.36464 

50.48048 

27.07650 

47.19088 

27.07650 

47.19087 ’ 

27,07653 

47,19087 

27.07656 

47.19087 

27.07656 

47.19087 

27.07653 

47,19087 

27.07650 

47.19087 

53.03325 

7,25068 

53.46424 

6.06403 

53.34186 

4.31051 

52.69143 

3.72970 

51.62369 

3,08660 

50.39547 

2.75092 

48,82205 

1.75504 

47.68127 

.23031 

46.72490 

- 1,41842 

45.95671 

- 3.16334 

45.19410 

- 4.91103 

41.45092 

- 7.46942 

36.99969 

- 8.82034 

32.44382 

- 9.75090 

27.64470 

- 10.44127 

23,22319 

- 10.95834 

18,59212 

- 11.33156 

13. 94409 

- 11.55551 

9.29606 

- 11.72946 

4.64303 

- 11.90342 

0.00000 

- 12.07737 





0.00000 

60.05505 

19.95300 

60.05505 

24.14103 

59.35522 

28.00735 

57.58432 

31.44768 

55.08219 

34.33925 

51.96920 

37.05300 

48.68175 

37.05300 

48.68175 

37.05302 

48.68175 

37.05304 

48.68175 

37.05304 

48.68175 

37.05302 

46,60175 

37.05300 

48,68175 

63.22217 

8.41479 

63.65311 

7.23000 

63,53352 

5.97794 

62.88714 

4.89681 

61.82313 

4.25138 

60, 59698 

3.91508 

53.10005 

3.07700 

56,22504 

1.38482 

54.65392 

-.67488 

53.45076 

- 2.96707 

52.31354 

- 5.29787 

48.02243 

- 8,36281 

42.88166 

- 9.97219 

37.60045 

- 11.09675 

32.28115 

- 11.93293 

26.92540 

- 12.56032 

21.55759 

- 13.07537 

16.16819 

- 13.28525 

10.77880 

- 13.49513 


at X = 176.0 


at 


200.0 


at X = 250.0 


at X = 300.0 


i 


Fuselage card 
set 7 


o 


I 

I 
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L234567890I23^567890123<»567B90. 


60 * 0^469 

50.17263 

50.17262 

8.39596 

5.07923 

-2.53658 

-12.<»227l 

-15.01292 


37.98107 

47.02950 

47.02945 

73.72516 

67.26528 

57.61123 


59.07207 

50.17262 

50.17262 

7.14537 

4.45391 

-5.68472 


35.6^437 -13.41049 
11.90493 -15.25942 


X = 350.0 


62.33416 

51.66350 

51.66350 

9.56192 

6.24338 

-1.62859 

-13,72036 

-16.73765 


47.95639 

57.00600 

57.00595 

83.91679 

75.09546 

60.00000 

37.30926 

12.46703 


60.55982 

51.66350 

51.66350 

8.31280 

5.47453 

-6.07157 

-14.86801 

■17.02175 


at X = 400.0 


64.12318 

53.45255 

53.45255 

9.96335 

7.64037 

-1.67808 

-15.20354 

-18,79918 


46.94422 

55.99380 

55.99377 

83.94176 

76.43562 

60.00000 

37.62638 

12.58571 


62.34889 

53.45255 

53.45255 
9.06896 
6.71966 
-6.53578, 
-16.56325 
-19. mil 


65.91221 

55.24160 

55.24160 

10.36477 

9.03735 

-1.88891 

-16.64711 


45.93204 

54.98160 

54.98161 
83.96672 
76.93689 

60.00000 
37.95382 


64.13796 

55.24160 

55.24160 

9.86512 

8.29547 

-7.00000 

■16.22844 
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COLbfIN 


12 3^ 5 6 7 8 

1 23^1 567890 123^567890123^56789012M167890123<»567Q90123<»567890123^5678901234567B90 


31.7U01 

6,3563^ 

-19.^<fl88 

-21,61663 

25,92095 

0,00000 

-20.93372 

-22.00000 

19,06903 

-20.85589 

12,71269 

-21,23726 

0,00000 

67,0O73<» 

37.20680 

67.80739 

91,39393 

67,10989 

95.25726 

65.33067 

A8.69637 

62,82798 

51,58936 

59.71751 

59,30680 

56.93930 

59.30680 

56,93930 

5<t, 3068^ 

56,<i3<*30 

59.30686 

56.93930 

59,30688 

56.93930 

59,30609 

56,93930 

5<»,30680 

56,A3<t30 

33.92000 

10,86360 

89,00617 

10.63238 

83.98336 

10.38256 

83,85571 

10 ,l6e22 

83.69990 

10,03619 

83,90000 

9,96868 

78.22606 

9.50999 

73.069o9 

3,93900 

63,06366 

7,57287 

63,90695 

5.30793 

60.00000 

1.5C000 

5^,c0711 

-1,^8550 

93,35336 

-2,92586 

92,80868 

-3.93808 

36,72969 

-9,68327 

30,62050 

6,12703 

-5.23b09 

-6,25935 

29.50312 

0,00000 

-5.68738 

-6.95000 

16,38109 

-5.87609 

12.25906 

-6.06069 

o.cooco 

69,00000 

36.53200 

69.00000 

90,71863 

68.29757 

99,58298 

66.52339 

^3 ,02160 

6^,02071 

50,91959 

60.91023 

53.63200 

57.62700 

53.63200 

57.62700 

53.63 195 

57.62700 

53,63195 

57,62700 

53.63195 

57.62700 

53.63198 

57.62700 

53.63200 

57,62700 

89.00000 

10.90000 

89.00000 

10,90000 

89,00000 

10.90000 

b^.OOOCO 

10,9COOO 

89,00000 

10.90000 

89,00000 

10.90000 

79.18389 

10,85839 

7^,37769 

I0,8it6o 

69,56798 

1C. 71609 

69, 75975 

10,53213 

60,00000 

10.00000 

5^.01361 

9.6137A 

96.01805 

9,96265 

92,01692 

9.36032 

36.01999 

9.26139 

30,01219 

6,002^7 

9.22596 

9.12071 

29,00987 

0,00000 

9,18289 

9,10000 

18.00790 

9,16213 

12.00993 

9,19192 


at X 


at X 


560.0 


600.0 


4 

I 

I 


Fuselage card, 
set 7 I 


o 


1 
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o 

IV) 


COLUHN 


57>073 

69. 

5r.TP;— 


61.546 



6^615 “ 

STTS^T 



0. 

0. 

0. 

0. 

1.059 

3.6 

5.488 

8.444 



17.1 

27.077 

37.053 

47.03 

57.006 

55.995 

54.983 

54.308 



53.632 

0. 

3. 

16.686 

31.246 

39.4 

49.2 

52.803 

52.413 


Lofting line 3 

45.7 

57.627 

47.192 

48.603 

50.174 

51.665 

53.454 

55.243 

56.435 

4 


0. 

0. 

0. 

0. 

1.0595 

5.192 

7,403 

10.635 



17.1 

27.077 

37.053 

47.03 

57.006 

55.995 

54.983 

54.308 



53.632 

0. 

3. 

16.686 

31.246 

39.4 

45.035 

47.429 

46.853 


► Slope control line 

45.7 

47.192 

46.683 

50.174 

51.665 

53.454 

55.243 

56.435 



57.627 

0. 

0. 

0. 

0. 

1.06 

6.407 

9.03 

11.753 



17.1 

27.077 

37.053 

47.03 

57.006 

55.995 

54.983 

54.303 



53.632 

0. 

3. 

16.686 

31.246 

39.4 

41.5 

42.55 

43,6 


> Lofting line ^ 

45.7 

47.192 

46.683 

50.174 

51.665 

53.454 

55,243 

56.435 



57.627 

0. 

1.725 

3.119 

4.602 

5,433 

9.322 

11.267 

13.211 

< 


17.1 

27.077 

37.053 

47.03 

57.006 

55.995 

54.983 

54.308 



53.632 

0. 

3. 

16.686 

31.246 

39.4 

41.5 

42.55 

43.6 


> Slope control line 

45.7 

57.627 

47.192 

48.683 

50.174 

51.665 

53.454 

55.243 

56.435 



0. 

2.7 

5.047 

7.544 

0.942 

11.661 

13.021 

14.381 

i 


17.1 

27.077 

37.053 

47.03 

57.006 

55.995 

54,903 

54.308 



53.632 

0. 

1.5 

13.72 

26.72 

34. 

37.9 

39.05 

41.8 


► Lofting line 5 

45.7 

47.192 

48.683 

50.174 

51.665 

53.454 

55.243 

56.435 



57.627 

0. 

2.7 

10.703 

19.218 

23.986 

28.072 

30.116 

32.159 



36.246 

6d.dl6 

44.76 

53.275 

61.789 

70.303 

69.055 

69.409 

69.111 


^ Slope control line 


Fuselage card 
set 5 
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Lofting line 6 


19 ^ 

50.395 

60.597 

70.790 

81 . 

01.9 

82.0 

83.9 

87 

Q 

- 3 . 

2.751 

- 1.906 

3.915 

-.792 

5.079 

-.09 

6,293 

.969 

7.69 

.799 

9.037 

1.028 

9.969 


0 . 

9.263 

19.116 

29.635 

29.369 

31.729 

39.099 


Slope control line 6 


Lofting line T 


Slope control line J 


Lofting line 8 


APPENDIX C 











Sample Case U Input 


COLUMN 


^56 


7 


8 


12 3<»567890i2 34 567690I2 3<>S67890123A56789012 3<>56789Q123^S67890123A567890123456789Q 


16EMPAK SAMPLE CASE 4 (FUSELAGE ONLY) 

1 

FUSELAGE (CROSS-SECTlONAL LOFTING, INC(1)-3) 
600* 9 17 3<» 31101111 

0* 3* 50. 100. 128. 

110 

152. 

164. 

176. 

1 

200* 

250. 

300. 

350, 

400. 

460. 

520# 

560. 

I 

600. 

22 

22 

22 

22 

22 

22 

22 

22 

i 

) 

22 22 

22 

22 22 

22 

22 22 

22 

22 22 

22 


22 22 

22 

22 22 

22 

22 22 

22 

22 22 

22 

> 

22 22 

22 

22 22 

22 

22 22 

22 

22 22 

22 

1 

22 22 
1 

0* 

22 

5 1 

0. 

5 1 

0. 

5 5 

0. 

10 

0. 

0. 

0. 

0. 


0* 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


0. 

0* 

0. 

0. 

0. 

0. 

0. 

0. 


0. 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


0. 

0« 

0. 

3» 

0. 

3. 

0. 

3. 

0. 

3. 


0* 

3. 

0. 

3. 

0. 

3. 

1.725 

3. 


2*7 

1.5 

2.7 

1.5 

2.7 

1.5 

5.625 

-3. 

1 ? 

0* 

-3. 

0. 

-3. 

0. 

-3. 

0. 

-3. 


0. 

0. 

-3. 

16.686 

0. 

16.686 

0. 

16. 666* 

0. 

16.686 


0* 

16.666 

0. 

16.686 

0. 

16.686 

3.119 

16.686 1 


5.0<»7 

13.720 

10.703 

5.016 

12.276 

2.594 

15,203 

-1.906 ; 

> 

9.589 

-1.906 

9.263 

-1.9 06 

0.732 

-3.364 

8.236 

-4.727 


0. 

0. 

-4.727 

31.246 

0. 

31.246 

0. 

31.246 

0. 

31.246 

) 

0. 

31.246 

0. 

31.246 

0. 

31.246 

4.602 

31.246 

[ 

7.544 

26.720 

19.218 

8.757 

22.466 

3.758 

25.391 

-0.742 

> 

19.791 

-0.742 

19.116 

-0.742 

10.021 

-3.750 

16.997 

-6.565 


0. 

0* 

-6.565 

39.4 

0. 

39.4 

0. 

39.4 

0.549 

39.4 

) 

) 

1.059 

39.4 

1.0595 

39.4 

1.06 

39.4 

5.433 

39.4 

1 


GEMPAK title card 

GEMPAK geometry option card 

Fuselage card set 1 


Fuselage card set 2 


Fuselage card set 3 

Y and Z coordinates of 
lofting lines 1-9 and 
slope control lines 1-8 
at X = 0.0 


k 


at X = 3.0 
at X = 50.0 

at X = 100.0 


[Fuselage card 
set 6 


\ 

I 


♦ 


o 
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8«942 

34 . 

23.966 

10 . 8^2 

28.172 

4.410 

31.097 

- 0.090 

25.504 

- 0.090 

24.635 

- 0.090 

23.223 

- 3.967 

21.904 

- 7.594 

0 . 

- 7.594 







0 . 

52 . 

0 . 

52 . 

0 . 

52 . 

1.868 

52 . 

3.6 

49.2 

5.192 

45.035 

6.407 

41.5 

9.322 

41.5 

11 . 66 X 

37.9 

28.072 

12.648 

33.063 

4.969 

35.988 

0.469 

30.401 

0.469 

29.364 

0.469 

27.682 

- 4.153 

26.109 

- 8.476 

0 . 

- 8,476 







0 . 

56 . 

0 . 

56 . 

0 . 

56 . 

2.600 

56 . 

5.468 

52.803 

7.403 

47.429 

9.080 

42.55 

11.267 

42.550 

13.021 

39.85 

30.116 

13.546 

35.508 

5.248 

38.433 

0.749 

32.849 

0.749 

31.729 

0.749 

29.912 

- 4.246 

28.212 

- 8.917 

0 . 

- 8.917 







0 . 

56.358 

0 . 

56.358 

0 . 

56.358 

4,990 

56.358 

8.444 

52.413 

10.635 

46.853 

11.753 

43.6 

13.211 

43.6 

14.381 

41.8 

32.159 

14.444 

37.954 

5.528 

40.879 

1.028 

35.297 

1.026 

34.094 

1.028 

32.141 

- 4.338 

30.315 

- 9.358 

0 . 

- 9.358 







0 . 

57.073 

0 . 

57.073 

0 . 

57.073 

9.771 

57.073 

17.1 

45.7 

17.1 

45.7 

17.1 

45.7 

17.1 

45.7 

17.1 

45.7 

32.246 

16.239 

42.844 

6.087 

45.769 

1.587 

40.194 

1.587 

38.824 

1.587 

36.6 

- 4.524 

34.52 

- 10.240 

0 . 

- 10.240 







0 . 

58.564 

2.5 

58.564 

9.977 

58.564 

19.732 

58.564 

27.077 

47.192 

27.077 

47.192 

27.077 

47.192 

27.077 

47.192 

27.077 

47.192 

44.760 

19.980 

53.033 

7.251 

55.958 

2.751 

50.395 

2.751 

48.000 

2.751 

45.194 

- 4.911 

42.564 

- 12.077 

0 . 

- 12.077 







0 . 

60.055 

5.0 

60.055 

19.953 

60.055 

29.693 

60.055 

37.053 

48.683 

37,053 

48,683 

37.053 

48.683 

37.053 

48.683 

37.053 

48.683 

53.275 

23.721 

63.222 

8.415 

66.147 

3.915 

60.597 

3.915 

55.741 

3.915 

52,314 

- 5.298 

49.092 

- 13.915 

0 . 

- 13.915 







0 . 

61,546 

7.5 

61.546 

29.930 

61.546 

39.653 

61.546 

47.030 

50.174 

47.030 

50.174 

47,030 

50.174 

47.030 

50.174 


X = 125.0 


at X = I 6 U.O 


at X = 1T6.0 


at X = 200.0 


at X = 250.0 


at X = 300.0 





APPENDIX 




Sample Case 5 Input 



GEMPAK title card 

GEMPAK geometry option card 

Fuselage card set 1 

Fuselage card set 2 
Fuselage card set 3 

Fuselage card set 4 
(Same as for sample case l) 

Fuselage card set 8 


o 


APPENDIX 


Sample Case 5 Output 


GeMPAK - RAPID AIRCRAFT GEOMETRY GENERATION FOR ENGINEERING DESIGN 


CASE TITLE - GEMPAK SAMPLE CASE 5 ^FUSELAGE ONLY! 


GEOMETRY OPTIONS CHOSEN 
1 FUSELAGE 


♦ enter FUS2* 

♦♦♦♦♦♦♦*♦♦♦ 


FUSELAGE WITH AUXILIARY GEOMETRY, INC(A)«l 
CCEFFS FOR PRDJECTICN OF LOFTING CURVE NO. I 
ST LINE A" 0. B« 0. 

COEFFS FOR PROJECTION OF LOFTING CURVE NO. 1 
ST LINE A- 0. B- 0. 

COEFFS FOR PROJECTION OF LOFTING CURVE NO. 1 
ST LINE A- 0. e« 0. 

COEFFS FOR PROJECTION OF LQFTInG CURVE NO. 1 
,5T LINE A- 0. B» 0. 

COEFFS FOR PROJECTION CF LOFTING CURVE NO. 1 
ELLIPSE A« .3A706L+CI B- -.9<»H8E+01 

COEFFS FOR PROJECTION OF LOFTING CURVE NO. 1 
ST LINE A- 0. B« . 0. 

COEFFS FOR PROJECJJJAH 
ST LINE 
COEFFS FOJ<-^ 

ST LIN^^ 

COEF^ ^ 


BETWEEN Xm 0.0000 AND X* 600.0000 ON THE X-Y PLANE 

C- 0. 0- 0. £■ -.60000E+03 F- 

BETWEEN X» 0.0000 AND X« 3.0000 ON THE X-2 PLANE 

C- 0. 0- .30000E^OI E» -.30000E+01 F" 

BETWEEN X- 3.0000 AND X- 128.0000 ON THE X-Z PLANE 

C» 0. D« .36A00E+02 E« -.12500E+03 F« 

BETWEEN X- 128.0000 AND X» 162.0000 ON THE X-Z PLANE 

C- 0. D- .12600E+02 E« -.2^000£*02 F^ 

BETWEEN X« 152.0000 AND X« 16<r.0000 ON THE 

C» .99636E+01 0- -.61299E + 03 £• 

BETWEEN X« 16A.OOOO AND X- ^Qfl . 


(Same as for sample case l) 


^^<r^0^0E*03. 

,^52000000E+03 


•56000000E403 


»60000000E^03 


•1O330341£#O5 


.1070829dE+05 


.11075993E+05 


•93990751E40A 

•77210649£^0A 


.2A611786E+05 

.24819693Ef05 


.16595A13E+05 


.16179709E+05 


.A7571503E+06 


.63139752E+06 

•65352504E+06 


.A0952801E+06 


•3A2A8122E«06 


.26580E^03_ 


'T3252626AE403 

•37526835E403 


•A3007900E403 


•A9007660E403 


.5399109AE4O3 


•57998535E403 
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11%J OF the bottom e fuselage points at X« <»29,1800 


YF 

0.0000 

6.262<» 

12.52A7 


ZF 

-18.6623 
-16.3550 
-lb. 0^76 




0000 


ZE 


9.1000 


RUNL 


638.26^9 


5.78<»<f 

9.1200 

636.1649 

11.5688 

9.1399 

638.2128 

17.3532 

9.1599 

638.3484 

23.1375 

9.179f. 

638.5cl2 

28.9216 

9.2161 

638.7689 

3A.70o0 

9.2693 

639.0029 

S0.<f900 

9.3402 

639.2459 

SKIN FRICTION LENGTHS 


FLOI 

SOIL 


595.3A87 

42.9162 


595.4117 

42.d584 


595.6041 

42.8011 


, 595.6931 

42.7443 


596.2151 

42.68bl 

, 

596.5793 

42.5739 


597.0092 

42.4236 


THERE APE 

6 TOTAL CROSS- 

•SECTIONS DEFINING 



♦EXIT 

F U S 2 * 
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Sample Case 5 Output {TAPE38) 


(Same as for sample case 1] 


SENGHCL 

XE 


.<»2918E*03# .<r6E403f •5173E^03# .52E^03# .56E+03# «6E^03# 0*0# 0.0# 0.0# 0.0# 0.0# 0 
0.0# 0*0# 0.0# O.C# 0.0# 

.39919999«J99099C4-02# • AOl 193 5769<»05 3E + 02# • <»0<»8 9999999999E^02# .40489999999999E 
,<»0^9E + 02* 0.0» 0*0# O.Of 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# • 
, 3<r<rS7^5»63l?716U 4-02# . 3^7992 70328902 E + 02# . 3<*600290079576E+02# .3^730^083204221 
0.0# C.O# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# • 2860039361286E+ 


•290585t6232i6E402# .29060096982805 E+02# • 28955 090774 422E^02# . 2092 183O062868E 

0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# .22899751396979E 

.2327?J| """ "•'1^5192 1164 5411 4E*02i ' -.1 H644$ 3^1113 if t^l# 

I .93402346924693E^01# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

-.17C909390554396^02# 16 760342053«9fe402# -. 18 04 1881 04 1 732E+02# 




0 . 0 # 0 

-.4864 


0.0# 0.0# 0.0# 0.0# 0.0# C.O# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# —.1697 
-.197 72806059 143E^02# -. 1905 908 6263 19fc*02# -.53604457 796917E4-01# .92181 
0.0# 0.0# 0*0# 0.0# C.O# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# —.1753 
-.204 


• 63924590460313E4-03# 0.0# 0.0# 0.0# U.O# 0.0# 0.0# 0.0# 0.0# 0.0# 
•494ie092C04537E403# .551506252519061403# • 5542074836 785 3E403# 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0. 

.550966685d6972Ft03# . 553660090 17938E^03# • 5962 150599 1012E403# - 

0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # _ 1 ^ 

0,0# • 5505( V QmO^‘'orSp l)*1b#*"\>. 5# 6iw# 

.573253324731O5E402# .2 7012 31 1 59471E401# .42371 82254^ 728EH 
0.0# 0.0# 0.0# 0.0# C.O# 0.0# 0.0# 0.0# 0.0# 0.0# o.jo# o.ol 
' .27017534574273E401# . 42d 553 1200360 1E402# . 42056403l|55602l 

•5^^^ 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# .30840605693162E4p2» J 

— — Q-lQl— .4291622653496E402# .429 1622653496E+02# 0 . 0 # 0.0# O.lo# 0.0 

0.0, jsit fc * . * ?; 

liXT . 6, 

0.0# f.cMrt 


XEjYEjZE: X, Y, and Z coordinates of engine hole 

geometry 

FLOI: Longitudinal lengths up to element of interest 

SOIL: Lengths of element siaes in longitudinal direction 
NESEG: Number of segments in each cross section 
IXT: Number of cross sections 



(Same as for sample case l) 
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Sample Case 6 Input 


COLUMN 


123^5678 
1 2 3<t 567890123<. 567890l23<t 567890I23A 56789012 3^567B90123<>567e90l234g67990123<>567690 
GEMPAK SAMPLE CASE 6 (WING ONLY - MANUAL INPUT) ” 

2 

SWING 

IHPUT-2# NYU-<»# NXU-9# XWl-237.7^ ZBR«-35»217> THETA-30. > ALPHA— 1.# 
XROTAT-600.* REFLW-600.# 


SEND WING 

(SAMPLE 

CASE 6) 





0. 

0. 

353.5 

50.5 

606. 

101. 

151.5 

202. 

252.5 

303. 

0 • 

10*6265 

10.6265 

0. 

18.1963 

22.7301 

26.26 

22.7301 

18.1963 

0. 

0. 

55.9067 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

94.<»95A 

366.1955 

133.3097 

605.0098 

172.1260 

210.9383 

269.7526 

288.5669 

327.3812 

0 • 

fe.1675 

8.1675 

0. 

13.9857 

17.6706 

18.6309 

17.6706 

13.9857 

0* 

0. 

111.8133 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

188.9907 

378.8909 

216.1193 

606.0195 

263.2679 

270.3765 

297.5051 

326.6337 

351.7623 

0. 

15.7085 

5.7085 

0. 

9.7751 

12.2106 

13.0217 

12.2106 

9.7751 

0. 

0. 

167.72 

0. 

0. 

0. 

0. 

0. 

0. 

0. 

283.6861 

391.5866 

298.9290 

607.0293 

316.3719 

329.6168 

365.2577 

360.7006 

376.1635 

0. 

3.2696 

3.2696 

0. 

5.5666 

6.9509 

7.6126 

6.9509 

5.5666 

0. 

0. 

0. 

0. 

0. 

0. 

0. 


SLi 


GEMPAK title card 

GEMPAK geometry option card 

^ Namelist input for wing 

Chord station 1 
"I X coordinates at Y = 0 

^ Upper surface Z coordinates 
} at Y = 0 

\ Lower surface Z coordinates 
J at Y = 0 


Chord station 2 


I 


Coordinates at 
Y = 55.9067 


Wing 

manual 

input 


Chord station 3 
Coordinates at Y = 111.8133 


Chord station 1+ 


► Coordinates at Y = 167.72 ^ 


o 
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Sample Case 7 Input 


CulUMN 


X 2 3 




5 6 


7 8 


12 3<»567690123<»56769012 3^567890 123^567890123^5678901234567890X23^567890123^567890 

GEMPAK Sample cm 7 (wing antr - ARsffRARY airfoi1> ichro » 3 ) , 

2 

SWING 

CRW-404.F BW-335.44# SWEQ6-59.39# TRW*. 3058, NYU-4, NXU-9, ICHRO-3, 

NPCU-9, NPCL-2# XWl-237.7, ZBR— 35.217, THETA-30., ALPHA— 1.# XROTAT-600.# 


SEND 

0. 

WING (SAMPLE 
.125 

CASE 7) 

.25 

.375 

.5 

.625 

.75 

• 875 

0. 

1.0 

.0263 

.0450 

.05626 

.06 

.05626 

.0450 


•0263 0. 

0 . 1 . 

0 . 0 . 


GEMPAK title card 

GEMPAK geometry option card 


Namelist input for wing 


coordinates 

surface 


of upper 


■1 Z coordinates of upper 
j surface 
X coordinates of lower 
Z coordinates of lower surface 


Arbitrary 

kirfoil input 
surface i 


All coordinates are input as a fraction 
of chord length. 


U) 
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Sample Case 8 Input 

CCLUrN 123^5676 

GEMPAK title card 
GEMPAK geometry option card 

I Same as for sample 1, but with 
r an elevon deflected 20^ 


123<»567890l2 3<>^6789Q123<>567890I23<>567890l23^5678901234567e90I23»567a901234567890 
GeK?AK SAMPLc CASc^S CWING ONLY WITH OEFLECTED FlAP# ICON-U 
2 

SWING 

CRW«<»0<r,# BW335.94> SWEOB-59,39, TRW*. 3058, NYU«^> NXU«9f ICHP0*2» 
TWRC-.06# TC0-.03# XWl-237.70# Z8R — 35.217# lPRNT-3# 

IME^G£-0» IRAOE*!# RA0E-.75# XROTAT-600*, 

ICON-1, XCCR-.75# XC0T-.75# DEtFU-20., 06LFI-20.# IFLAP-1# 

SEND WING (SANPIE CASE 8) 
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Sample Case 8 Output 



GEflf’AK * RAPID AIRCRAFT GEOHETRY GENERATION FOR ENGINEERING DESIGN 

CASE TITLE - GEHPAK SAMPLE CASE 8 (WING ONLY WITH DEFLECTED FLAP# ICGN«1) 
GEOMETRY OPTIONS CHOSEN 


♦ ENTER WINGEX^ 

^4 ****^***^**^*^*t*^ ******* 


(Same as for sample case 1) 


SASIC GEOMETRY AFTER CONTROL SURFACE GENERATION. THE HINGELINE IS AT POSITION 12 


PT 

XU 

YU 

zu 

PT 

XL 

YL 

ZL 

I 

0.0000 

0.0000 

• 6686 

1 

O.OOQO 

0*0000 

.6686 

2 

• 0<»92 

0.0000 

.9413 

2 

.0492 

0.0000 

.4072 

3 

.1902 

0.0000 

1.1896 

3 

.1902 

0.0000 

*1914 

<t 

• 90^6 

0.0000 

1.3609 

4 

• 4046 

0.0000 

.0495 

5 

. 66^3 

o.cooo 

1.4902 

5 

• 6643 

0.0000 

0.0000 

6 

51.0536 

0.0000 

11.5920 

6 

51.0536 

0.0000 

• 0000 

7 

101.4429 

0.0000 

18.7396 

7 

101.4429 

0.0000 

• 0000 

8 

151.8322 

o.ooco 

22.9489 

6 

151.8322 

0.0000 

• 0000 

9 

202.2214 

0.0000 

24.2313 

9 

202*2214 

0 . 0000 ^ 

— 

10 

252.6107 

0.0000 

22.5902 

10 

252.6107 



11 

303.0000 

0.0000 

16.0212 

11 

303 . 0000 ^ 



12 

353.5000 

.0000 

10.4964 

12 




13 

404.0000 

• 0000 

.0000 

iL- 





9<t%<i95A 

^9A.o860 


55.9067 

55.9067 

55.9067, 
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64»<r.7293 


-mrnw 

167.7200 


' JEm ■> 
-35.2170 


13 6^<».+293 167.7200 


“= 55.2170 

-35.2170 



XLE 

2LEU 

ZIEL 


XIE 

ZLEU 

ZLEL 

1 

0.00000000 

.00215650 

.00215650 

2 

.00100000 

.00^2678*. 

.00027263 

3 

.00207778 

.00978821 

-.00000311 


.003239<t0 

.00525377 

-.00020562 

5 

,00<»A9137 

.00576690 

-.000A3603 

6 

.0058^072 

.00631396 

-.00067909 

7 

.00729503 

.00689635 

-.00093^75 

0 

.006862A5 

.0075157^ 

-.00120318 

9 

.01055180 

•00817367 

-.001^8^13 

10 

.01237255 

.00887158 

-.00177729 

11 

.01^33^92 

.00961077 

-.00208188 

12 

.0169^993 

,01039235 

-.00239719 

13 

.018729^5 

.01121718 

-.00272171 

1^ 

.02118627 

.01206578 

-.00305388 

15 

.02303^20 

.01299827 

-.00339137 

16 

.02668809 

.01395923 

-.00373129 

17 

.02976396 

.01995260 

-.00^^06997 

18 

.03307908 

,01599152 

-.00990285 

19 

.03665206 

.01706013 

-.00^72^28 

20 

•OA050296 

.01817892 

-.00502732 

21 

.0<t^65339 

.01931689 

-.00530356 

22 

.0A912666 

.02097639 

-.00559279 

23 

.0539^786 

.0216^750 

-.00573253 

2«r 

.0591A^,07 

.02281857 

-.00585811 

25 

.06^7^^A6 

.02397^81 

-.00590170 

26 

.070780A6 

.02509797 

-.00589212 

27 

,07728596 

.02616557 

-.00565^09 

28 

.08^297^t7 

.02715020 

-.00530769 

29 

.09185<f36 

.02001859 

-.00^76719 

30 

•0999990^ 

.02073051 

-.00399065 


FLAP GENERATED GEOMETRY 
PT XU TU 


ZVJ 


PT 


XL 


Yl 


ZL 


CHORD 



1 

590.7000 

0.0000 

-17.1958 

1 

590.7000 

0.0000 

-35.2170 


2 

591.2000 

0.0000 

-29.7206 

2 

591.2000 

0.0000 

-35.2170 

chord 

3 

2 

691,7000 

0,0000 

-35.2170 

3 

691.7000 

0.0000 

-35.2170 


1 

565.0312 

55.9067 

-21.9078 

1 

565.0812 

55.9067 

-35.2170 


2 

603.8955 

55.9067 

-27.1809 

2 

603,8955 

55.9067 

-35.2170 

CHORD 

3 

3 

692,7098 

55.9067 

-35.2170 

3 

692.7098 

55.9067 

-35.2170 


1 

589,<r623 

111.8133 

-25.6210 

1 

589.9623 

111.6133 

-35.2170 


2 

616.5909 

111.8133, 

-29.6910 

2 

616.5909 

111.8133 

-35.2170 

CHORD 

3 

9 

693.7195 

111.8133 

-35.2170 

3 

693.7195 

111.8133 

-35.2170 


1 

613.8935 

167.7200 

-29.8387 

1 

613. 8935 

167.7200 

-35.2170 


2 

629.2869 

167,7200 

-32.1093 

2 

629.2069 

167.7200 

-35.2170 

3 

♦EXIT W 

699,7293 167.7200 

I N G E X * 

-35.2170 

3 

699.7293 

167.7200 

-35.2170 
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Sample Case 8 Output (TAPE28) 


SblN66 


IFIAP 

ICO 

SEND 

SFLiP 

XU 


(Same as for sample case 1 except geometry from hinge line 
to trailing edge is same as flap helow) 


1* 

2 , 


XU,YU,ZU 

XL,YL,ZL 


.5^076*03# •56508U6573817E+03, .589^62331^7635E + 03> 

0 « 0 # 0 « 0 > 0 « 0 > 0 » 0 > 0 | 0 > 0 « 0 ^ 0 . 0 # 0 * 0 # 0 . 0 > 0 . 0 ^ 0 * 0 # 0 * 0 # 0 * 0 # 
#616590<J31^7635E+03» •6a92863972U53E*03> 0.0# 0.0# 0.0# 0.0# 0.0# 
0.0# 0.0. 0.0# 0.0# .6<»l69999999999E+03# . 64270976 573 8 16E + 03# 

0.0# 0.0# 0.0# 0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 

.^27091f“ 

0 . 0 , 0 . 

0 . 0 # 0 . 

.454375 

0.0# 0 II 

0 . 0 # 0 «| 

.50841C 
0.0# OJ 
0 . 0 # 0 .| 

.56244! 

0.0# 0* 

0 . 0 # 0 

.61659* 

0 * 0 # 0 


.613843497214 
. 59119999999 <! 
0.0# 0.0# OtC 
.643719531476 
0.0# 0.0# .23 


T.O# V559066T6V6V6T7T+^02#'^ .^llllsns 3"333 33l eVob"# 16 7721^ ♦03#" oVo# 0.0# 

0.0# 0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# .55906666666666E^02# .1 

0.0# 0*0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# C . 0# 0.0# 0.0# 0* 

*16772E‘*03# 0.0# 0.0# 0.0# 0*0# 0.0# 0*0# 0*0# 0.0# 0.0# 0.0# 0.0# 0«j 

•11181333333333E+03# .16772E*03# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0. 

5:J; ? n - 


.16773 
.11181 
0.0# d 
0 . 0 # 0 

• 1677^ 
.11181 
0 . 0 # 0 
0.0# a 
.16772 

• 11181^ 

0 . 0 # 


0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# 0.0# C.O# 0.0# 0 
-.29641002242749E+02# -.321043414053068+02# 0.0# 0.0# 0.0# 0.0| 
0.0# 0.0# 0.0# 0.0# -.35216999999999E^02# -. 352 16999999999E+02 
0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 * 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 .: 


0 . 0 # 0 „ 
0 . 0 # 0 . 
-. 2854 
0 . 0 # 0 
0 . 0 # 0 
-.2279 
0 . 0 # 0 
0 * 0 # 0 
-.2315 
Qa.tU.-A 


XL 


Flap definitions same as 
for wing in sample case 1 


YL 


2 „ . a Aa i i n n i n ,fc . a aoj -t, A n.2 — ^ n. /^ a. ^ , 

■ .5407E+03# .56508116573817E+03# .5 8946233147635E+03 
0 . 0 # 0 * 0 # 0 * 0 / 0 . 0 # 0 * 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 
.61659093147635E+03# .62928639721453E+03# 0.0# 0.0# 
0.0# 0.0# O.C# 0.0# .641699999999996+03# .6427097651 
0*0# 0 . 0 # 0.0# 0 . 0 # 0 . 0 # 0 * 0 # OeO# 0*0# 0.0# 0 . 0 # oJ 

1 -a acny ^ a •#•# i o e fi.n. 

0 . 0 # 

0 . 0 # 

.4543 

0 . 0 # 

0 . 0 / 

• 5084 

0 . 0 # 

0 . 0 # 


• 559 066^66666 78*02# .1118 1333333333E 

0 . 0 # 0,(h 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # .5 


0 . 0 # 

0 . 0 # 

0.0# 0.0# 0.0# 0.0^ 0.0# 0.0# O«0# 0.0# o.j 
.16772E+03, 0.0# O.Q# 0.0# 0.0# 0.0# 0.0# 
.ill813333333J3t+03, .16772E*03# o.O# 0.0# 

0*0# C 1 « 

0 . 0 # 


• 1677 
.1118 

0 . 0 # 

0 . 0 # 

.1677, 

•uom. 


.35216999999 9^ 3 F+ 0 2 # ' -1 3 5216999^ 


0.0# 0.0# 0.0# 0.0# 0.0# 0.0# O.C 
-.35216999999994E+02# -.35217E+0i 
0.0# 0.0# -.35217E+02# -.35217E+C 
0.0# 0.0# 0.0# 0.0# 0.0# 0*0# O.C 
-.35167263778835E+02# -.351668031 
0*0# 0.0# 0.0# 0.0# -.35217E+02# 
0.0# 0.0# 0.0# 0.0# 0.0# 0*0# O.C 
-.35217£*02# -.35217E+02# 0.0# 0/ 
0.0# -.35216999999953E+02# -.3521 
q^q. n.n* o,c , 
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• O.Of .lE-02f .2077782732^53«E-02» , 323939e350$281E-02^ 

• 7295025<»91515<rE-02# * 8862^525075627E-02# • 10551798279S39E-01# 
.!6<»<»992530<»6Olc-Ol, . 18729<.<.552967£-01, •21186272980305E-01# 
.2976396075513ie-0i» . 330790829513 £-01# • 3665206^<rl0305E-01# 
.<»9126fc56 1333285-01# . 539^ 7361 68 36 7 7E-01# . 59199073775^51E-01# 
.772659fc03^6£91E-01/ •a^297<.735229565-01# . 918 59 361352489E-01# 

■ •21565032222301E-02# .92678997163935E-02# . 97802O65393929E-O2# 
•63139695899037t-02# •66963992992529E-02# . 7515737202 3019E-02# 
.96107659973095C-02# .103923976653036-01# • 11217176237653E-01# 
.13959230716679E-01# .199526017817776-01# .1599X5179330056-01# 
.193168686379706-01# .20976399802526-01# . 2169799560026E-01# 
.250979653565595-01# .2616 556926 0688 E-01# .271502095979996-01# 

■ .215650322223015-02# . 272625957212 93E-03# -. 31051003709263E-05# 
-.679035996179716-03# - . 9 3 9 759 5 9 72 59 2 3 E-0 3 # -. 1203 177903109E-02# 
-.20P18833237373E-02# -.23971375O39023E-O2# -. 272 1713039801 
-.373128857QQ939E-02# -.906997118256686-02# -.99028993579766 >C0N$T 
-.530355615983096-02# -.559273 9787 89016-02# -.5732 5392 605399 TlUt 

-.58921159091216-02# -.565909335038986-02# -.530763899653216 

■ .15-02# 

■ .lE+00# 

■ 30# 

• 2 # 

• .lEtOl# 

■ 1 # 

■ 2# j 

* 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 0 . 0 # 

• . 3036*03# , 

• 0.0# I 

■ .90106159903136*01# 

■ . 19628 699992906E+03# ' 

■ .33599E+03# 

« -.126929316739396+02# 


Definitions same as for wing in sample case 1 except 
SFLAP: Distance from leading edge to hinge line 

X0,Y0,Z0: Coordinates of flap rotation point 

DX2,DY2,DZ2: Distance between tip and root chord 

hinge line positions in X, Y, and 
Z planes 


•999136760606091*02# . 

•12372995902392E-O1# 

.238391991832168-01# 

.90502962130196E-01# 

.69799961992136-01# • 

.999990995662976-01# 

.52537730593766-02# • 

•817366570009156-02# 

.1208577970091E-01# • 

•17O6013355O2O2E-O1# 

.228185652999956-01# 

•2601B568518271E-01# 

-.20962296276698 E-03# 

-.19891307138997E-02# 


• 9 t 60 nM 90 « 129 I* 02 # I 

.I9339916616299E-01# 

•266680863219296-01# 

.996933931971396-01# 

707B0962569322E-01# 

97669835929993E-02# 
.88715750813292E-02# 
1299e26885063E-01# 
•16176919993909E-01# j 
.23979812099998E-0I# 
•26730513093613E-01# 
-.936031193907386-03# 
-.177723993180216-02# 


.57202379198008-199# .16010266916179-183# .2 
.66235829ll9916£-68, -.717363099972766+98# • 
.707399308163076+28# .122183529609216-98# .1 
.19517629859922-260# *999038603937316+86# .1 
-.717383055972766+58# -.717383055972766+58# 
.915769006529776-10# .57202379198088-195# 
•1221035296O921E-98# .17996011823776+202# -. 
.81910669856788+105^ .10551975563189-125# -. 
.31009969161393-169# .122X8352960921E-98# ,1 
.16810266916175-183# .91128639552892-203# -. 
. 19517629859^,22-260# .707399308163076 + 28# -• 
.99900939909997-222# .766958995719286+09# .4 
-.95030669229951+116# -.717383055972766+58# 
-.71738305597276E+58# -.717383055972766+58# 
-.717383055972766+58# -.717383055972766+58# 
-.71738305597276fc+58# -.717383055972766+58# 
1 # 

1 # 

0 # 

(Definitions same as for sample case 

0 # 

0 # 

0 # 

0 # 

2 # 

1 # 1 # 1 # 1 # 1 # 1 # 1 # 1 # 1 # 1 # 

0# 0# 20# 30# 
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Figure 1 


Basic logic 


flow of GEMPAK. 
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Figure 2.- Examples of GEMPAK -genera ted geometries. 
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Figure 3.- Fuselage: initial conditions required to fit second-degree conic segment. 









Y 



tf 




(a) Nonorthogonal slopes and d-j^ = <i 23 ' 


(c) Nonorthogonal slopes and d23 > ^13- 



(b) Orthogonal slopes and di3 ^ d23- (d) Orthogonal slopes and d23 > di3. 

Figure 5 .- Fuselage coordinate transformations. 



Y 



(a) Parallel slopes orthogonal to 
collinear end points. Family 
of ellipses. 


Y 



(b) Parallel slopes nonorthogonal and 
nonparallel to collinear end points. 
Inflection point (segment cannot be 
second degree ) . 

Y 



(c) Parallel slopes parallel 
to collinear end points. 

Straight-line segment. 

Figure 6.- Fuselage: parallel slopes at end points. 


12 $ 


(a) Propulsion system planform. 



Aero/propulsion 
system surface 


(b) Projection of propulsion system planform onto fuselage geometry. 
Figure 7.- Fuselage geometry subtended by propulsion forces. 























Figure 8,- Planar-surface generation logic flow. 
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XWDl 
TWRD 
TCD = 



XWDl 
TWRD 
TCD = 


XWDl 
TWRD 
TCD = 


XWDl = Xl/XC 
XWD2 = X2/XC 
TWRD = TW/XC 
TCD = TC/XC 



XWDl 
XWD2 
TWRD 
TCD = 


XWDl 

^ ^ 

TCD = 


(a) Input parameters. 


(b) Shape variations. 


Figure 10.- Slab-sided airfoil section. 


= 1.0 
= 0.20 
0 


= 0.999 
= 0.20 
0 


= 0.65 
= 0.20 
0 


= 0.5 
= 0.8 
= 0.075 
0.0875 


= 0.80 
= 0.1999 
= 0.10 
0.050 


CO 

o 


(1) No leading edge 




(1) Wing section prior to 
adding leading edge. 



(2) Modified section after . 
adding leading edge. 



(a) Leading-edge construction. 


(b) Large leading-edge condition. 


Figure 11.- Leading-edge slab-sided airfoil. 



Thickness ratio 

TWRD = TW/XC 

Camber ratio 

TCD = TC/XC 


(a) Input parameters. 




TWRD = 0.10 
TCD = 0.05 


TWRD = 0.10 
TCD 0.10 


(b) Shape variations. 


Figure 12.- Circular-arc airfoil section. 














(a) Wing prior to flap addition. 



(b) Wing with flap added. 

Figure 16.- 


UJ 

ui 



(c) Hinge-line input nomenclature. 



Sec A-A Flap setting Sec A-A Speed brake 


Control-surface option. 







Untwisted wing 



Figure l8.- Wing twist option. 









Figure 21.- Operatic 



performed in MERGE. 











Intersection 

point 


Coordinates 
on fuselage 


Coordinates 
on ray 


(^F,l» ^P,l’ ^P,l) ^P,l’ ^P,l> 

^2 (^F,2’^P,2’^P,2) (^R,2» ^P,2» ^P,2, 


Estimate of intersection . 



Regularly shaped 
fuselage panel 


^ Y 


4 


Z 

a 

Irregularly shaped i 
fuselage panels 


Y 






Figure 24,- MERGE: Examples of irregularly shaped fuselage panels. 




do not intersect within the end points of 
either diagonal. Program assumes that 



Z 



Diagonal intersection lies within end point 
limits of both diagonals. Diagonal d^^g 

is chosen as the panel divider. 

Z 



Diagonal intersection lies within 
end point limits of dg^. Diagonal 


d 


13 


is 


chosen as panel divider. 


Diagonal intersection lies within 
end point limits of djg. Diagonal 


dg^ is chosen as panel divider. 


Figure 25.- MERGE: Pos.3ible panel diagonal intersection locations. 






Figure 28.- Geometry redefinition for intersection. 








Figure 29.- GEMPAK input flow 






















15 20 25 30 35 ^0 1*5 50 


Card set 3 


Figure 32.- Fuselage: card set 3 input 




Figure 33*- Fuselage: prescribed uneven cross-section point distribut ion . 

Tick marks indicate segment subdivisions. NSS must equal 25; LOFMX must 
equal 8. 
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Figure 34,- Fuselage; coordinate plane projections of a three-dimensional space curve. 



z 



Figure 35.- Fuselage: slope control options for longitudinal segments. 

and « denote slope control points. 
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Z -values of the Ith slope control line at Jth cross section. 
• Repeat card type 5D until J = NXS. 


Y-values of the Ith slope control line at Jth cross section. 

! Repeat card type 5C until J = NXS. ! 


_ Z-values of the 1th lofting line at Jth cross section. 
Repeat card type 5B until J = NXS^ 


y-values of the Ith lofting line at Jth cross section. 

■ Repeat card type 5A until J = NXS. 



Card set 5 


Card type 5A 


J Only the first 
2 data sets 
must be 
repeated for 
I = LOFMX 


Figu.^’e 37.- Fuselage: card set 5 input. 








Repeat this 
data set until 
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Figure 40,- Fuselage: card set 8 input. 
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Figure 42.- GEMPAK program structure. 
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Figure M3.- Sample 1; fuselage input layout. Numbers indicate order of lofting and slope control 
lines. Solid lines are lofting lines and dashed lines are slope control lines. 












Figure 44.- Computer drawing of final generated geometry for sample case 1. 
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